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ABSTRACT 


The  requirement  for  efficient  scheduling  algorithms  for  the  development 
of  hard  real-time  systems  resulted  in  much  effort  directed  toward  the 
development  of  high  performance  scheduling  algorithms.  The  algorithms 
developed  up  to  this  point  for  the  Computer  Aided  Prototyping  System 
(CAPS)  do  not  satisfy  the  requirements  for  a  efficient  static  scheduling 
algorithm.  The  existing  static  scheduler  neither  performs  efficiently  nor 
produces  correct  results  for  all  input  cases. 

This  thesis  represents  the  research  conducted  to  develop  a  fast  heuristic 
static  scheduling  algorithm  based  on  the  principles  of  simulated  annealing. 
In  addition,  this  thesis  describes  the  development  of  new  data  structures  that 
simplify  the  static  scheduler  and  maximize  system  resources.  Several  of  the 
existing  scheduling  algorithms  were  re-implemented  to  make  use  of  the  new 
data  structures  and  provide  correct  results.  Any  feasible  schedule  produced  by 
these  scheduling  algorithms  guarantees  that  both  timing  and  precedence 
constraints  are  met.  The  primary  goal  of  this  thesis  was  to  produce  an 
efficient  and  effective  scheduler  to  support  the  CAPS  system. 
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I.  INTRODUCTION 


A.  BACKGROUND;  HARD  REAL-TIME  SYSTEMS 

Large  scale  hard  real-time  systems  are  important  to  both  civilian  and 
military  operations.  Hard  real-time  systems  are  defined  as  those  systems  in 
which  the  correctness  of  the  system  depends  not  only  on  the  logical  results  of 
the  computation,  but  also  on  the  time  at  which  the  results  are  produced.  If 
results  are  not  produced  in  a  timely  manner,  disastrous  results  may  occur. 
Examples  of  hard  real-time  systems  include  air  traffic  control  systems, 
telecommunications  systems,  space  shuttle  control  avionics  systems,  C^I 
systems,  and  future  Strategic  Defense  Initiative  (SDD  systems.  Most  hard  real¬ 
time  systems  are  specialized  and  complex,  require  a  high  degree  of  fault 
tolerance,  and  are  t)rpically  embedded  in  a  larger  system.  To  overcome  the 
complexity  in  the  design  and  development  of  such  systems,  software 
engineers  now  use  a  new  approach,  called  rapid  prototyping,  to  build  and 
maintain  these  systems.  Rapid  prototyping  is  a  means  for  stabilizing  and 
validating  the  requirements  for  complex  systems  (e.g.  embedded  control 
systems  with  hard  real-time  constraints)  by  helping  the  customer  visualize 
system  behavior  prior  to  detailed  implementation.  The  Computer  Aided 
Prototyping  System  (CAPS),  which  is  being  developed  at  the  Naval 
Postgraduate  School,  supports  an  iterative  prototyping  process  characterized 
by  exploratory  design  and  extensive  prototype  evolution,  thus  enabling  the 
engineers  to  produce  complex  systems  that  match  user  needs  and  reduce  the 
need  for  expensive  modifications  after  delivery. 


1 


B.  THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) 

CAPS  consists  of  several  modules.  Figure  1  below  describes  the  major 
software  modules  of  CAPS.  The  user  interface  consists  largely  of  a  graphical 
editor  for  the  formal  prototyping  language  called  Prototyping  System 
Description  Language  (PSDL).  Future  implementations  of  this  module  will 
also  have  a  syntax  directed  editor.  The  second  module  is  the  Software 
Database  System  which  includes  the  Rewrite  Subsystems,  the  Software  Design 
Management  Subsystem,  and  the  Reusable  Software  Component  Database. 
The  third  module  is  the  Execution  Support  System  (ESS).  This  module 
contains  the  PSDL  Translator,  the  Static  Scheduler,  and  the  Dynamic 
Scheduler.  Figure  2  shows  the  implementation  and  interfaces  of  the  ESS. 
This  thesis  is  concerned  with  the  static  scheduler  component  of  the  ESS. 


Figure  1.  Major  Software  Tools  of  CAPS 

The  Dynamic  Scheduler  acts  as  a  run-time  executive  when  exercising  the 
system.  It  schedules  operators  without  timing  constraints,  which  are  not 
include  in  the  static  schedule,  by  using  spare  capacity  in  the  static  schedule.  It 
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Figure  2.  The  Execution  Support  System 


handles  run-time  exceptions  and  hardware /operator  interrupts.  It 
communicates  with  the  user  interface  during  prototype  runs.  Thus,  it 
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performs  like  a  miniatiire  operating  system.  While  the  problems  involved  in 
this  subsystem  are  interesting,  it  is  the  static  scheduler  that  deals  with  the 
issues  addressed  in  this  proposal. 

The  purpose  of  the  static  scheduler  is  to  build  a  static  schedule  for  a  set  of 
tasks  that  must  obey  both  precedence  and  timing  constraints.  This  schedule 
gives  the  order  of  execution  and  the  timing  of  the  operators.  The  schedule  is 
legal  and  feasible  if  both  the  precedence  relationships  are  maintained  and  the 
timing  constraints  are  guaranteed  to  be  met. 

The  existing  static  scheduler  is  described  in  (Janson,  1988),  (Killic  1989) 
and  (Cervantes,  1988).  Figure  3  is  a  data  flow  description  of  the  static 
scheduler.  The  following  paragraphs  are  a  description  of  the  static  scheduler 
that  was  originally  implemented  by  (Janson,  1988),  (Killic,  1989),  (Cervantes, 
1988)  and  modified  by  the  work  described  in  this  thesis.  The  Static  Scheduler 
consists  of  five  modules— PSDL_READER,  FILE.PROCESSOR, 
TOPOLCXJICAL.SORTER,  HARMONIC_BLOCK_BUILDER,  and  OPERATOR_SCHEDULER. 

The  first  component,  PSDL_READER,  reads  and  processes  the  PSDL 
prototyping  program.  It  is  essentially  a  Elter  that  removes  information  not 
needed  by  the  Static  Scheduler.  The  output  of  this  module  is  the  text  file 
ATOMIC.  INFO  that  contains  all  the  operators  along  with  any  timing 
constraints  the  operators  may  have  and  the  link  statements  which  describe 
PSDL  implementation  graphs. 

The  second  component,  FILE_PROCESSOR,  analyzes  the  text  file 
generated  by  the  PSDL_READER  and  separates  the  information  into  a  linked 
list  data  structure  called  THE_GRAPH  and  a  file  called  NON_CRITS.  It  then 
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converts  sporadic  operators  into  their  periodic  equivalents.  The  information 
is  separated  based  on  its  destination  and  the  additional  processing  required. 
THE_GRAPH,  which  is  a  graph  structure,  as  indicated  in  Figure  4  below 
contains  two  linked  lists.  The  "VERTICES"  list  contains  a  list  of  all  time- 
critical  operators  and  their  associated  timing  constraints.  The  "LINKS"  list 
contains  the  link  statements  which  are  a  syntactical  description  of  the  PSDL 
implementation  graphs  and  indicates  the  data  flows  between  operators.  The 
"VERTICES"  list  is  used  by  the  HARMONIC_.BLOCK_BUILDER  module  and 
the  "LINKS"  list  is  used  by  the  OPERATOR_SCHEDULER  to  develop  a 
OP_INFO  list.  The  OP_INFO  list  is  then  used  by  the 
TOPOLCX5ICAL_SORTER  to  develop  a  precedence  list  for  the  operators  to  be 
scheduled.  The  entire  structure  THE_GRAPH  is  ilso  used  by 
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OPERATOR_SCHEDULER  to  develop  a  static  schedule.  The  NON_CRITS 
file  contains  a  list  of  all  non-critical  operators  that  is  used  by  the  Dynamic 
Scheduler. 


The  third  component,  TOPOLOGICAL_SORTER,  performs  a  topological 
sort  on  the  OP_INFO  data  structure.  Using  the  OP_INFO  list  is  a  change  from 
the  previous  implementations  of  the  Static  Scheduler.  The 
TOPOLCX3ICAL_SORTER  has  also  been  rewritten.  It  now  develops  a  true 
topological  ordering  and  is  not  dependent  on  a  specific  ordering  of  operators 
in  the  PSDL  input  file.  The  result  is  a  total  ordering  of  the  operators 
depending  on  data  flow.  This  total  ordering  is  passed  to 
OPERATOR_SCHEDULER  module  as  the  PRECEDENCE_LIST  data  structure. 


THE.GRAPH 

(V_LIST.USr)^ 

OPERATOR 

OPERATOR 

OPERATOR 

VERTICES 

1 

■ 

NEXT 

■I 

NEXT 

NEXT 

— 1 

(E.UST.UST^ 

UNK  DATA 

LINK  DATA 

UNK  DATA 

UNKS 

NEXT 

— >■ 

NEXT 

— ► 

NEXT 

“1 

_J_ 

Figure  4.  Graphical  Representation  of  THE.GRAPH  Linked  List  Structure 


The  fourth  component,  HARMONIC_BLOCK_BUILDER  determines  the 
Harmonic  Block  Length  of  the  static  schedule  to  be  developed.  A  harmonic 
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C  PERIODIC  OPERATORS 

This  section  is  based  upon  the  background  work  done  in  (Cervantes, 
1989).  Periodic  operators  are  triggered  by  temporal  events  and  must  occur  at 
regular  time  intervals.  The  timing  constraints  of  each  periodic  operator  OPj 
consists  of  a  specific  period  period(OPj),  a  maximum  execution  time 
MET(OPj),  and  a  deadline  finish_within(OPi).  Denote  the  kth  instance  of  OPj 
by  OPj  the  start  time  of  OPj^  by  start_time(OPj  j^),  and  the  completion  time  of 
OPi  k  by  completion(OPj  k)-  For  k  >  1,  define  earliest_start_time(OPi  k),  the 
earliest  starting  time  of  OPj  k/  as  start_time(OPj  |)  +  (k-1)  *  period(OPj)  and 
deadline(OPj  k)/  the  latest  completion  time  of  OPj  k/  as 
earliest_start_time(OPi  k)  +  finish_within(OPi).  Then 

start_time(OPj  k)  >=  earliest_start_time(OPj  k) 

and 

start_time(OPi  k)  +  METCOPj)  <*  deadline(OPj^). 

The  precedence  constraints  among  a  given  set  of  operators  are  specified  in 
the  form  of  a  directed  acyclic  graph  G.  The  precedence  constraints  are  defined 
by  the  communications  among  the  operators  that  compose  the  system  being 
developed.  PSDL  operators  communicate  by  means  of  named  data  streams. 
All  data  values  carried  by  a  data  stream  must  be  instances  of  a  specific  abstract 
data  type  associated  with  the  stream.  There  are  two  different  types  of  data 
streams  in  PSDL,  dataflow  streams  and  sampled  streams.  Dataflow  streams 
are  used  in  applications  where  the  values  in  the  stream  must  not  be  lost  or 
replicated  and  the  period  of  the  producer  and  consumer  of  the  data  must  be 
the  same  (lockstep  performance).  Sampled  streams  are  used  in  applications 
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D.  ORGANIZATION 

The  objective  of  this  thesis  is  to  describe  a  new  heuristic  static  scheduling 
algorithm  that  uses  the  principles  of  simulated  annealing  to  develop  a 
feasible  schedule  if  one  exists.  To  do  so  this  thesis  is  organized  as  follows: 
Chapter  II  describes  the  static  scheduling  algorithms  that  exist  in  CAPS  for  a 
single  processor  environment;  Chapter  III  is  a  description  of  the  new  heuristic 
scheduling  algorithm.  It  includes  a  description  of  the  simulated  annealing 
process  and  the  implementation  of  this  process  in  the  static  scheduler; 
Chapter  IV  is  a  description  of  the  new  data  structure  and  modihcations  made 
to  existing  modules  that  improve  the  performance  of  the  static  scheduler; 
Chapter  V  is  an  evaluation  of  this  new  algorithm;  and  Chapter  VI  presents 
conclusions  and  recommendations  for  future  work. 
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addressed  in  (Janson,  1988).  This  chapter  examines  the  five  scheduling 
algorithms  currently  implemented  in  CAPS.  These  five  algorithms  are 
Harmonic  Block  with  Precedence  Constraints,  Earliest  Start,  Earliest  Deadline, 
Branch  and  Bound,  and  Exhaustive  Enumeration.  The  first  three  algorithms 
were  described  in  detail  in  (Kilic,  1989),  and  the  remaining  two  were  described 
in  detail  in  (Fan,  1990). 

B.  HARMONIC  BLOCK  WITH  PRECEDENCE  CONSTRAINTS 

This  algorithm  attempts  to  Bind  a  feasible  schedule  by  scheduling  the 
operators  in  the  order  that  they  appear  in  a  topological  ordering.  If  any  of  the 
operators  violate  a  timing  constraint,  the  schedule  being  developed  is 
rejected.  Since  in  most  hard  real-time  systems  there  exists  more  than  one 
topological  ordering  of  operators  there  are  cases  where  one  ordering  will 
produce  a  feasible  schedule  while  anodier  will  not.  This  algorithm  does  not 
adjust  the  topological  ordering  in  order  to  find  a  feasible  schedule. 

C  EARLIEST  START  TIME  SCHEDULING  ALGORITHM 

In  the  original  algorithm  (Bra,  1971),  each  transaction  must  have  an 
earliest  start  time.  That  is,  each  transaction  becomes  available  at  time  a^,  must 
be  completed  by  bj,  and  requires  Cj  units  of  time.  Pre-emption  of  transactions 
is  allowed  in  this  algorithm  but  transaction  precedence  is  normally  not 
allowed.  The  version  of  the  algorithm  that  is  implemented  in  CAPS  allows 
precedence  but  does  not  allow  pre-emption.  Transactions  are  scheduled  in 
this  algorithm  based  on  the  system  clock,  the  earliest  start  time  of  a 
transaction,  and  the  priority  of  the  transaction.  The  algorithm  assigns  a  time 
slot  to  the  newest  transaction  based  on  its  earliest  start  time.  If  two  or  more 
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E  THE  NEED  FOR  A  NEW  SCHEDULING  ALGORITHM 

There  is  a  gap  in  the  current  static  scheduler.  Three  algorithms  exist  that 
attempt  to  develop  a  quick  solution.  These  algorithms  only  find  feasible 
solutions  for  very  simple  hard  real-time  systems  but  fail  to  find  a  feasible 
solution  as  systems  become  more  complex.  Exhaustive  Enumeration  and 
Branch  and  Bound,  on  the  other  hand,  will  find  a  feasible  schedule  if  such  a 
schedule  exists,  but  both  are  very  costly  due  to  their  time  complexity. 

There  exists  a  need  for  a  fast  algorithm  that  is  capable  of  producing  a 
feasible  solution.  The  proposed  heuristic  algorithm,  which  is  based  on  the 
simulated  annealing  approach,  appears  to  be  the  best  compromise  between 
simple-minded  and  exponential  time  algorithms  already  implemented  in 
CAPS. 

F.  SUMMARY 

This  chapter  presented  a  sample  of  previous  algorithms  developed  to 
solve  the  real-time  scheduling  requirement.  These  algorithms  have  inherent 
weaknesses  such  as  an  inability  to  handle  complex  topological  orderings  that 
do  not  immediately  produce  solutions  or  they  have  a  high  degree  of  time 
complexity.  Since  the  static  scheduling  problem  is  NP-hard  (Zdrzalka,  1988), 
systemic  global  search  is  the  only  guaranteed  way  to  return  a  feasible  static 
schedule  for  a  hard  real-time  system  if  such  a  schedule  exists.  The  exhaustive 
enumeration  algorithm  has  already  been  implemented  in  CAPS  to 
accomplish  this.  This  algorithm  has  demonstrated  to  be  very  costly  in 
practice. 
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IIL  DESCRIPTION  OF  THE  ALGORITHM  TO  HANDLE  THE  HARD  REAL¬ 
TIME  SCHEDULING  PROBLEM 

A.  SIMULATED  ANNEALING 

The  use  of  simulated  annealing  to  solve  combinatorial  optimization 
problems  is  an  area  that  has  received  much  attention  lately.  Combinatorial 
optimization  problems  are  those  whose  configuration  of  elements  are  finite 
or  coimtably  infinite.  An  example  combinatorial  optimization  problem  is  the 
assignment  problem  where  there  are  a  number  of  personnel  available  to  do 
an  equal  number  of  jobs.  The  cost  for  each  person  to  do  each  job  is  known. 
The  goal  is  to  assign  each  person  to  a  job  so  that  the  total  cost  is  as  small  as 
possible  (Otten^  1989).  There  are  a  wide  range  of  combinatorial  optimization 
problems  that  the  simulated  annealing  approach  can  be  utilized  for.  These 
include  graph  partitioning,  graph  coloring,  number  partitioning,  VLSI  design, 
and  travelling  salesman  type  problems. 

Simulated  annealing  is  based  on  the  behavior  of  physical  systems  and  the 
laws  of  thermodynamics.  The  way  that  liquids  freeze  and  crystalize  or  metals 
cool  and  anneal  are  the  principles  upon  which  simulated  annealing  is  based. 
At  high  temperature,  liquid  molecules  move  freely  with  respect  to  one 
another.  As  the  liquid  cools,  this  mobility  is  lost  Atoms  line  up  and  form  a 
pure  crystal  that  is  at  a  minimum  energy  level.  As  the  system  cools  slowly 
nature  finds  the  minimum  energy  state  (Flannery,  1984).  Examining 
simulated  annealing  in  non-physical  terms,  a  comparison  is  made  to  the 
concept  of  local  optimization  or  iterative  improvement.  Local  optimization 
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energy  states  the  probability  for  making  an  uphill  move  still  exists.  As 
indicated  in  Figure  5  above,  uphill  moves  allow  the  algorithm  to  leave  a  poor 
local  solution  (point  A  or  point  B)  and  reach  a  better  solution  in  the  vicinity 
of  point  C.  This  general  scheme  of  always  taking  a  downhill  step  while 
occasionally  taking  an  uphill  step  is  known  as  the  Metroplis  algorithm, 
named  after  Metroplis,  the  scientist,  who  with  his  coworkers  first  investigated 
simulated  annealing  in  1953  (Press,  1984). 

The  choice  of  a  probability  function  to  determine  if  an  uphill  movement 
is  allowed  is  an  important  consideration.  At  each  step  of  the  simulated 
annealing  algorithm  a  new  state  is  constructed  based  on  the  current  state. 
This  new  state  is  constructed  by  randomly  displacing  or  adjusting  a  randomly 
selected  element.  If  this  new  state  has  a  lower  cost  than  the  current  state,  the 
new  state  is  accepted  as  the  current  state.  If  the  new  state  has  a  higher  cost 
than  the  current  state,  the  new  state  is  accepted  with  the  probability: 

exp(-Ae/kT). 

This  probability  function  is  known  as  the  Boltzman  probability 
distribution  where: 

Ae  =  difference  in  cost  between  new  state  and  current  state 
k  =  Boltzman's  constant  of  nature  relating  temperature  to  energy 
T  =  Current  Temperature 

A  characteristic  of  this  probability  function  is  that  at  very  high 
temperatures  every  new  state  has  an  almost  even  chance  of  being  accepted  as 
the  current  state.  At  low  temperatures  the  states  with  a  lower  cost  have  a 
higher  probability  of  being  accepted  as  die  current  state. 
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The  annealing  schedule  sets  after  how  many  random  changes  in  the 
configuration  is  each  downward  step  in  T  taken,  and  how  large  that  step  is. 
The  range  of  the  annealing  temperature  and  the  value  of  the  annealing 
schedule  are  normally  established  from  trial  and  error  experimentation 
(Flannery,  1984). 

A  pseudocode  representation  of  the  simulated  annealing  algorithm  based 
on  the  algorithm  proposed  in  (Johnson,  1989)  follows: 


BEGIN 

GET  AN  INITIAL  SOLUTION 
SET  INITIAL  TEMPERATURE  T  >  0 
WHILE  T  >  0  LOOP 

FOR  I  IN  1 . . L  LOOP 

GENERATE  A  NEW  SOLUTION 

Ae  -  E(NEW  SOLUTION)  -  E (CURRENT  SOLUTION) 

IF  Ae  <»  0  THEN 

CURRENT  SOLUTION  NEW  SOLUTION 

ELSE 

CURRENT  SOLUTION  NEW  SOLUTION 
WITH  PROBABILITY  exp(-Ae/T) 

END  IF 
END  LOOP 

ADOrUST  TEMPERATURE  (T  -  rT) 

END  LOOP 

END 

WHERE  T  -  TEMPERATURE 

r  -  COOLING  FACTOR 

L  -  NUMBER  OF  TRIALS  TO  PERFORM  AT  EACH  TEMPERATURE 
Ae-  DIFFERENCE  IN  COSTS  BETWEEN  TWO  SOLUTIONS 

The  choice  of  values  for  T,  r,  and  L  have  a  significant  impact  on  the 
annealing  schedule.  The  higher  the  initial  temperature,  the  higher  the 
cooling  factor,  and  the  larger  the  number  of  trials  at  each  temperature  result 
in  more  solutions  being  examined  in  order  to  find  an  optimum  solution. 
The  goal  in  choosing  these  parameters  is  to  pick  them  so  that  a  sufficient  but 
not  excessive  number  of  solutions  are  examined.  These  values  are  normally 
chosen  arbitrarily  and  adjusted  through  experimentation.  The  next  section  of 
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The  goal  of  the  hard  real-time  scheduler  is  to  find  a  feasible  schedule  for 
the  operators,  not  the  optimum  schedule.  This  means  that  simulated 
annealing  can  be  terminated  as  soon  as  a  feasible  schedule  is  found.  Both 
loops  of  the  annealing  algorithm  are  modified  so  that  if  a  feasible  schedule  is 
found,  the  loop  condition  for  both  loops  is  satisfied  and  annealing  is 
terminated.  This  means  that  when  each  iterative  solution  is  tested,  it  is 
examined  to  see  if  it  is  a  feasible  solution.  The  next  section  describes  what  a 
feasible  solution  is.  If  the  current  schedule  is  feasible,  boolean  flags  are  set  so 
that  both  loop  conditions  of  the  algorithm  are  satisBed. 


Figure  6.  Reordering  of  Operators  Preserving  Precedence 
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The  proposed  schedule  must  also  be  examined  to  check  that  the  finish 
time  of  the  last  operator  in  the  schedule  does  not  exceed  the  harmonic  block 
length.  The  concept  of  harmonic  block  length  is  covered  in  (Kilic,  1989).  The 
basic  idea  is  that  a  schedule  is  developed  to  fit  inside  a  harmonic  block.  The 
length  of  the  harmonic  block  is  the  greatest  common  multiple  of  the  periods 
of  all  operators  to  be  scheduled.  Once  a  schedule  is  developed  that  fits  within 
the  harmonic  block,  subsequent  copies  of  the  block  can  be  made  to  maintain 
the  hard  real-time  schedule.  Each  proposed  schedule  is  examined  to  insure 
that  the  schedule  does  not  exceed  the  harmonic  block  length.  If  a  schedule 
does  exceed  the  harmonic  block  length,  the  schedule  is  not  valid  since 
subsequent  copies  of  the  schedule  will  violate  the  hard  real-time  timing 
constraints. 

If  a  schedule  is  a  examined  and  all  timing  constraints  are  satisfied  and  the 
harmonic  block  length  is  not  violated  fiien  a  feasible  schedule  exists.  At  this 
point  the  simulated  aimealing  algorithm  is  terminated  and  the  feasible 
schedule  is  returned  to  CAPS. 

E  METHOD  FOR  PRODUaNG  A  FEASIBLE  SCHEDULE  FOR  A 

PROPOSED  REAL-TIME  SYSTEM 

The  simulated  annealing  algorithm  uses  a  step  by  step  method  to  find  a 
feasible  solution.  These  steps  include  developing  an  initial  solution,  testing 
the  initial  and  subsequent  solutions,  and  adjusting  the  solution  while 
guaranteeing  that  operator  precedence  is  maintained.  The  simulated 
annealing  algorithm  is  a  heuristic  (or  approximate)  approach  to  solving  the 
scheduling  problem  for  hard  real-time  systems.  It  does  not  guarantee  to  find 
a  valid  solution  even  if  one  exists.  The  goal  of  this  thesis  is  to  develop  an 
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schedule  as  possible  while  maintaining  precedence.  Figure  8  demonstrates 
the  annealing  that  occurs.  Each  operator  ahead  of  the  operator  in  question  is 
examined  to  determine  if  it  is  a  parent  of  the  operator  that  violated  its  timing 
constraints.  The  operator  continues  to  move  up  the  schedule  until  we  come 
to  its  parent.  At  this  point  we  insert  the  operator  in  question  after  its  parent. 
Each  operator  in  the  new  schedule  begins  at  its  lower  bound  or  immediately 
after  the  preceding  operator,  which  ever  is  greater.  This  new  schedule  is  then 
examined  to  determine  what  its  cost  is  and  if  it  is  in  fact  a  feasible  schedule. 


ad  Schedule 

Annealing 

New  Schedule 

OP  1 

OP  1 

OP  1 

OP  2 

OP  2 

OP  2 

OP  3 

OP  4 

OP  4^.,^ 

Is  parent?  No 

OP  5 

OP  3 

OP  5- 
OP  6^^ 

Operator 
that  misses 

Is  parent?  No 

Is  parent?  No 

OP  4 

OP  6 

deadline 

Figure  8.  Use  of  Aimealing  to  Modify  a  Schedule 


If  the  new  schedule  has  a  positive  cost  that  is  lower  than  that  of  the 
current  schedule,  this  new  schedule  is  adopted  and  annealing  continues.  If 
the  new  schedule  is  costlier  than  the  current  schedule,  a  random  choice  is 
made  whether  to  accept  the  new  schedule  with  its  higher  cost  of  keep  the 
current  schedule.  This  choice  is  made  in  accordance  with  the  annealing 
function,  which  takes  into  account  the  current  temperature  of  the  system  and 
the  difference  in  cost  between  the  current  solution  and  the  new  solution.  The 
choice  of  accepting  the  new  solution  with  a  higher  cost  over  the  current 
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rv.  IMPLEMENTATION  OF  THE  STATIC  SCHEDULER 


A.  OBSERVATIONS 

The  previous  implementation  of  the  static  scheduler,  although 
functional,  does  not  perform  scheduling  in  the  most  efficient  manner,  nor 
does  it  handle  all  types  of  input.  During  the  development  of  the  new 
scheduling  algorithm  problems  were  identified  and  corrected  in  several  of  the 
existing  packages,  which  are  part  of  the  static  scheduler.  Development  of 
more  efficient  data  structures  resulted  in  faster  execution  of  all  scheduling 
algorithms  and  eliminated  the  requirement  for  cumbersome  input/output 
between  the  various  components  of  the  static  scheduler. 

The  modification  of  existing  packages  and  the  development  of  new  data 
structures  greatly  improved  the  performance  of  the  new  static  scheduler 
while  increasing  modularity  and  simplifying  the  code  of  the  various 
scheduling  algorithms.  The  implementation  of  additional  scheduling 
algorithms  in  the  future  will  become  a  simpler  task  because  of  the  work  done 
in  this  thesis. 

B.  MODinCAHONS  TO  EXISTING  PACKAGES 

Four  packages  that  made  up  the  static  scheduler  imderwent  modification 
in  order  to  correct  errors,  increase  functionality  and  improve  performance. 
These  four  packages  are  the  generic  package  SEQUENCES,  which  contained 
all  the  linked  list  routines,  the  TOPOLOGICAL_SORTER  package,  the 
FILE_PROCESSOR  package,  and  the  FILES  package,  which  contained  all  of  the 
global  variables  and  data  structures  used  by  the  static  scheduler. 


28 


traverses  a  linked  list  freeing  each  node  in  that  list.  The  second  COPY_LIST, 
allows  the  contents  of  one  list  to  be  copied  into  another  list.  This  procedure 
will  work  with  lists  of  the  same  or  different  lengths.  The  need  for  these  two 
routines  to  improve  memory  management  came  about  as  a  result  of  the 
development  of  the  simulated  annealing  algorithm.  Since  this  algorithm 
repeatedly  generates  new  schedules,  a  computer  system's  memory  would 
rapidly  fill  to  capacity  if  discarded  schedules  were  not  reclaimed  for  their 
memory. 


Figure  10.  Effect  of  the  INSERT.NEXT  linked  List  Routine 


2.  TOPOLOGICAL.SORTER 

The  original  topological  sorter  only  worked  when  the  input  was 
received  in  a  certain  order.  True  to]x>logical  orderings  were  not  found.  This 
sorter  did  not  handle  cases  of  multiple  data  links  between  op>erators.  The 
sorter  also  required  numerous  traversals  of  various  linked  lists  in  order  to 
accomplish  a  topological  ordering  of  operators. 
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The  new  TOPOLOGICAL_SORTER  (T_SORT)  is  a  simpler  and  faster 
implementation  of  the  topological  ordering  algorithm.  It  uses  an  array  that  is 
initialized  to  the  in-degree  of  each  operator.  The  new  scheduler  always 
augments  the  given  precedence  graph  with  a  dummy  start  node.  This 
dummy  start  node  has  in-degree  zero  and  is  connected  to  all  the  operators 
with  in-degree  zero  in  the  original  precedence  graph.  The  dummy  start  node 
is  the  oiUy  operator  in  the  queue  of  operators  to  be  processed  initially.  We 
remove  the  operator  v  from  the  head  of  the  queue  and  place  it  in  the 
precedence  list  (topological  ordering).  The  in-degree  value  of  each  of  v's 
children  is  decremented  by  one.  Once  an  operator  has  an  in-degree  value  of 
zero  in  the  array  the  operator  is  placed  at  the  end  of  the  queue  of  those 
operators  w<iiting  to  be  processed.  As  each  operator  is  processed  it  is  removed 
from  the  queue  and  placed  in  the  precedence  list.  This  process  continues 
until  the  queue  is  empty.  The  new  topological  sort  can  handle  input  in  any 
order. 

3.  FILE_PROCESSOR 

This  package,  which  processed  the  initial  input  and  tested  the  input 
to  determine  if  a  the  operators  could  be  scheduled  on  a  single  processor 
system,  now  only  tests  the  input  and  calculates  periods  for  the  non-periodic 
operators.  This  package  is  renamed  PRCXIESSOR.  Processing  of  the  input 
now  occurs  in  the  packages  FRONT_END  and  NEW_DATA_STRUCTURES. 

4.  Files 

The  original  FILES  package  contained  the  definitions  of  all  the  types, 
instantiation  of  all  the  generic  packages,  and  global  variables  used  by  the  static 
scheduler.  The  new  package  contains  the  same  type  of  information.  This  new 
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package  is  named  DATA.  Since  the  data  structures  used  by  the  static 
scheduler  are  different,  the  new  package  reflects  these  changes. 

C  PACKAGES  REMOVED  FROM  THE  STATIC  SCHEDULER 

During  development  of  the  new  algorithm  the  existing  data  structures 
were  examined.  In  addition  to  modifying  several  packages  to  improve  their 
performance,  several  packages  were  eliminated  because  they  were  inefficient 
in  their  execution  and  thus  were  replaced  by  new  packages.  The  removed 
packages  are  DIGRAPH,  the  HARMONIC_BLOCK_BUILDER  scheduling 
algorithm,  and  OPERATOR.SCHEDULER. 

The  instantiation  of  the  generic  padcage  GRAPHS  resulted  in  the  package 
DIGRAPH,  which  was  a  linked  list  representation  of  the  operators  and  their 
precedence  relationships.  This  package,  once  created,  did  not  require  any 
changes  throughout  the  execution  of  the  static  scheduler.  Using  linked  lists 
to  represent  graphs  with  their  associated  parent-child  relationships  is  very 
inefficient.  Numerous  linked  list  traversals  were  required  in  order  to 
determine  the  parents  or  children  of  a  specific  operator.  The  graph  structure 
was  not  internal  to  this  package  but  was  passed  as  a  parameter  from  procedure 
to  procedure  within  the  static  scheduler  increasing  the  input/output 
requirements.  Procedures  also  existed  within  this  package  allowing  for  the 
removal  and  addition  of  nodes  and  edges  in  the  graph.  This  could  result  in 
the  unintentional  removal  or  addition  of  information  or  changes  to  the 
relationships  between  operators.  The  generic  package  GRAPHS  has  been 
replaced  by  a  new  generic  package  NEW_DATA_STRUCTURES  which  is 
described  in  detail  in  the  next  section. 
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The  HARMONIC_BLOCK_BUILDER  scheduling  algorithm  is 
incorporated  into  the  simulated  annealing  scheduling  algorithm.  The 
HARMONIC_BLOCK_BUILDER  algorithm  is  used  to  develop  the  initial 
solution.  If  all  the  timing  constraints  are  satisfied,  simulated  annealing  does 
not  occur  since  a  legal  schedule  exists  and  the  static  scheduler  terminates. 

The  OPERATOR_SCHEDULER  package,  which  contained  the  routines 
TEST_DATA,  the  HARMONIC_BLOCK_BUILDER,  EARUEST_START,  and 
EARLIEST_DEADLINE  algorithms,  is  removed  and  replaced  by  the 
SCHEDULER  package.  The  procedure  TEST_DATA  is  moved  to  the  package 
FRONT_END.  Correct  implementations  of  the  EARLIEST_START  and 
EARLIEST_DEADLINE  scheduling  algorithms  that  make  use  of  the  new 
packages  and  data  structures  are  contained  in  the  package  SCHEDULER. 

D.  NEW  PACKAGES  AND  DATA  STRUCTURES 

Several  new  packages  and  data  structures  are  contained  in  the  new 
version  of  the  static  scheduler.  These  modifications  improve  performance 
and  correctness,  streamline  input/output,  and  simplify  the  static  scheduler. 
These  new  packages  are  FRONT_END,  NEW_DATA_STRUCTURES, 
PRIORITY  QUEUE,  SCHEDULER,  and  ANNEAL. 

1.  FRONT_END 

This  package  contains  the  procedures  PRODUCE_OP_LIST  and 
TEST_DATA.  The  procedure  PRODUCE_OP_LIST  reads  the  text  input  file 
ATOMIC.INFO.  Depending  on  the  keywords,  which  are  declared  as  constants, 
the  procedure  separates  the  information  in  the  file  and  stores  the  time  critical 
operator  information  in  a  linked  list  that  is  used  by  the  package 
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NEW_DATA_STRUCTURES.  This  procedure  also  produce  a  count  of  the 
number  of  operators  to  be  scheduled. 

The  procedure  TEST_DATA,  described  in  detail  and  implemented  in 
(Janson,  1988)  is  also  contained  in  this  package.  This  allows  the  input  to  be 
examined  as  soon  as  a  linked  list  of  operators  is  established  so  that  system 
resources  are  not  wasted  if  a  feasible  schedule  is  not  possible  for  a  given  input. 

The  new  representation  of  the  graph  NEW_GRAPH,  is  instantiated 
from  the  generic  package  NEW_DATA_STRUCTURES/  in  the  package 
FRONT_END.  This  allows  for  visibility  of  NEW_GRAPH  by  the  rest  of  the 
packages  within  the  static  scheduler. 

2.  NEW_DATA„STRUCTURES 

This  generic  package  replaces  the  generic  package  GRAPHS.  It 
represents  an  acyclic  graph  structure  of  operators  of  the  hard  real-time  system 
in  a  simpler  and  easily  accessible  data  structure.  The  new  graph  is  a  record 
that  consists  of  two  entries,  OP_ARRAY  and  OP_MATRIX  (see  Figure  11). 
Unlike  the  old  graphical  representation  all  information  about  the  operators; 
i.e  their  name,  period,  maximum  execution  time,  etc.  as  well  as  their  parent- 
child  relationships  only  exist  within  this  package.  All  relevant  information 
about  the  operators  that  is  required  by  die  static  scheduler  is  accessible  by  way 
of  procedures  and  functions  that  are  instantiated  within  the  package  and 
visible  outside  of  it. 

Since  the  operator  information  does  not  change  once  the  new  graph 
is  created,  the  decision  was  made  to  streamline  this  data  structure.  Using  the 
Ada  principle  of  information  hiding,  the  graph  structure  and  its  contents  are 


34 


private  so  that  this  information  cannot  inadvertently  be  changed.  This  was 
not  the  case  with  the  old  graph  structiire. 


Figure  11.  Graph  Structure 


The  generic  package  NEW_DATA_STRUCnJRES  is  instantiated  in 
the  declarative  part  of  the  package  FRONT_END.  However,  OP_ARRAY  and 
OP.MATRIX  cannot  be  instantiated  at  this  point  because  the  number  of 
operators  to  be  scheduled  is  not  known  until  ATOMIC.INFO  is  processed.  By 
once  again  using  the  principles  of  Ada  this  is  possible  by  creating  the  record 
structure  called  GRAPH  and  declaring  a  pointer  type  to  this  data  structure. 
Once  the  number  of  operators  to  be  scheduled  is  known  the  Ada  allocator 
"new"  is  tised  to  create  an  instance  of  GRAPH  that  contains  the  proper  size 
OP_ARRAY  and  OP_MATRIX.  This  allows  for  efficient  use  of  memory. 

The  data  structure  OP_ARRAY  contains  all  relevant  information 
about  the  operators.  Once  the  operators  are  stored  in  the  array  they  are 
identified  by  their  index  p)osition  in  the  array,  which  are  integers.  This  allows 
for  immediate  access  of  all  relevant  operator  information  instead  of  having  to 
traverse  a  linked  list  in  order  to  find  the  desired  operator.  Identifying 
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operators  by  their  index  position  as  opposed  to  their  name  reduces  the  storage 
required  for  operator  identification  throughout  the  static  scheduler. 

The  data  structure  OP_MATRIX,  which  is  a  two  dimensional  array, 
greatly  speeds  up  execution  of  the  static  scheduler.  In  the  old  graph  data 
structure  numerous  linked  lists  traversals  were  required  in  order  to 
determine  the  parent-child  relationships  of  operators.  The  new  graph  data 
structure,  illustrated  in  Figure  13,  streamlines  the  execution  of  this 
requirement.  Each  operator  has  a  row  and  column  in  the  matrix.  Each  cell  in 
the  matrix  has  two  entries,  one  for  a  parent  operator  and  one  for  a  child 
operator.  The  diagonal  cells  [i,il  in  the  matrix  act  as  header  nodes  for  two 
circularly  linked  lists,  one  containing  the  parents  of  node  i  in  the  graph,  and 
the  other  containing  the  children  of  node  i.  For  all  i/=j,  the  child  operator 
(respectively  parent  operator)  field  of  d>e  [i,j]**'  entry  is  -1  if  OPj  is  not  a  child 
(respectively  parent)  of  OPj.  Otherwise,  the  child  operator  (respectively  parent 
operator)  field  will  contain  the  index  number  of  the  next  child  (respectively 
parent)  in  the  circular  linked  list.  For  example,  using  Figures  13  anad  14,  the 
children  of  Op_2  can  be  retrieved  as  follows:  starting  at  cell  [2,2]  retrieve  the 
value  5  from  the  corresponding  child  operator  field.  Moving  to  cell  [2,5], 
retrieve  the  value  6  from  the  child  position.  Moving  to  cell  [2,6]  we  see  that 
there  is  a  value  of  2  in  the  child  position,  returning  us  back  to  the  starting  cell. 
At  this  point  we  know  OP_2  has  no  more  children.  A  similar  routine  is  used 
to  identify  an  operators  parent's,  only  moves  are  made  column  wise  as 
opposed  to  row  wise.  To  check  a  parent-child  relationship  we  can  go  right  to 
the  cell  in  question.  If  the  value  of  the  appropriate  field  is  not  -1,  then  a 
relationship  exists. 
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Figure  12.  Operator  Array 


Figure  13.  Operator  Matrix 
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Figure  14.  Matrix  Representation  of  Graph 


3.  PRIORTTY.QUEUE 

This  generic  package  is  used  by  the  earliest  start  and  earliest  deadline 
scheduling  algorithms.  During  instantiation  of  this  package  three  parameters 
are  passed  in  to  the  generic  template.  The  first  is  the  type  of  element  that  is  to 
be  placed  in  the  priority  queue.  The  second  is  the  type  of  the  value  used  to 
order  this  priority  queue.  The  third  is  fite  function  used  to  order  the  priority 
queue.  By  using  a  priority  queue  the  code  for  both  the  earliest  start  and 
earliest  deadline  algorithms  is  simplified.  Under  the  Ada  principle  of  code 
reusability,  the  generic  priority  queue  package  is  a  reusable  software 
component  that  has  a  wide  range  of  uses. 

4.  Anneal 

This  package  contains  the  code  for  the  new  sdieduling  algorithm  that 
is  described  in  detail  in  Chapter  m  of  this  thesis.  It  contains  all  the  necessary 
procedures  and  functions  required  to  perform  simulated  annealing. 
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E  DESCRIPTION  OF  THE  NEW  STATIC  SCHEDULER 

The  new  implementation  of  the  static  scheduler  still  takes  the  same 
input,  ATOMIC.INFO  and  produces  the  same  output,  the  Ada  textfile  SS.a. 
Figure  15  shows  the  dataflow  of  the  new  static  scheduler.  As  illustrated  in 
Figure  15,  once  the  input  is  stored  in  the  new  data  structure,  the  requirement 
for  cumbersome  input/output  is  removed.  All  necessary  information  is 
accessible  through  the  package  NEW_DATA_STRUCTURE.  The  new  static 
scheduler  accomplishes  the  same  functions  as  the  old  static  scheduler,  but  it 
does  so  in  a  more  efficient,  simplified,  and  correct  manner. 


39 


Hgure  15.  Data  Flow  Diagram  of  Static  Schedule 
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V.  EVALUATION  OF  THE  NEW  ALGORITHM 


A.  IMPROVEMENTS  IN  PERFORMANCE  OF  THE  NEW  ALGORITHM 

OVER  PREVIOUS  ALGORITHMS 

The  simulated  annealing  scheduling  algorithm  starts  with  an  initial 
solution  that  satisfies  the  precedence  constraints  of  the  hard  real-time  system, 
and  attempts  to  find  a  feasible  solution  that  satisfies  the  system  timing 
coitstraints.  The  simulated  annealing  algorithm  is  not  intended  to  run  faster 
than  either  the  earliest  start  or  earliest  deadline  scheduling  algorithm.  It  is 
intended  to  find  feasible  sdiedules  that  caimot  be  found  by  the  earliest  start  or 
earliest  deadline  algorithms  and  to  serve  as  an  alternative  to  the  more  costly 
branch  and  bound  and  exhaustive  enumeration  scheduling  algorithms. 
Based  on  the  initial  testing  results  simulated  annealing  accomplishes  this 
goal. 

The  performance  and  results  of  both  the  earliest  start  and  earliest 
deadline  scheduling  algorithm  improved  as  a  result  of  the  changes 
implemented  in  the  static  scheduler.  These  changes,  discussed  in  detail  in 
Chapter  IV  of  this  thesis,  resulted  in  a  rewriting  of  both  of  these  algorithms. 
These  algorithms  now  find  correct  solutions  for  cases  that  were  not  solved  in 
the  previous  version  of  the  static  scheduler.  In  particular,  the  algorithm  does 
not  output  incorrect  schedules  that  exceed  the  harmonic  block  length,  which 
they  did  in  the  previous  version  of  the  static  scheduler. 

Any  new  scheduling  algorithm  that  is  implemented  in  the  static 
scheduler  should  utilize  the  packages  and  the  data  structures  that  were 
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implemented  as  a  result  of  this  thesis.  These  data  structures  are  efficient  and 
do  not  require  large  amoimts  of  memory. 

B.  EXAMINATION  OF  THE  SIMULATED  ANNEALING  ALGORITHM  ON 

HARD  REAL-TIME  SYSTEM  PROBLEMS 

The  algorithm's  initial  performance  in  handling  hard  real-time  system 
problems  is  satisfactory.  Two  test  cases  are  presented  in  this  thesis  and  the 
simulated  annealing  algorithm  was  able  to  find  a  feasible  solution  when  both 
earliest  start  and  earliest  deadline  scheduling  algorithms  failed  to  find  a 
feasible  solution.  Simulated  annealing  was  not  costly  time  wise  when  it  came 
to  finding  these  solutions.  This  indicates  that  the  parameters  chosen  for  the 
simulated  annealing  scheduling  algorithm  (i.e.  freezing  temperature,  cooling 
factor,  the  number  of  trials  at  each  temperature)  are  satisfactory  choices. 

The  first  case  consisted  of  eight  operators.  The  input  file  and  the 
precedence  graph  are  included  in  Appendix  A  of  this  thesis  and  the  results  are 
presented  in  Table  1  below.  This  case  was  relatively  simple  in  that  there  was  a 
single  starting  node  and  there  was  not  a  wide  variance  in  periods  between  the 
various  operators.  Due  to  the  tight  timing  constraints  both  earliest  start  and 
earliest  deadline  were  imable  to  find  a  solution.  Simulated  annealing,  on  the 
other  hand,  quickly  foimd  a  feasible  solution.  By  starting  with  an  initial 
solution  that  did  not  satisfy  the  hard  real-time  systems  timing  constraints, 
simulated  annealing  adjusted  the  operators  while  maintaining  operator 
precedence  and  quickly  found  a  feasible  solution.  The  solution  satisfied  all 
timing  constraints,  including  the  one  failed  by  earliest  start  and  earliest 
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TABLE  1.  RESULTS  OF  THE  FIRST  TEST  CASE 


EARLIEST  START 

OPERATOR 

START  TIME 

STOP  TIME 

LOWER 

UPPER 

DUMMY  START  NODE 

0 

0 

30010 

0 

OP_l 

0 

2000 

0 

0 

OP~4 

2000 

3000 

0 

0 

OP~3 

3000 

8000 

0 

0 

OP~7 

8000 

9000 

0 

0 

Op32 

9000 

10000 

0 

0 

OP^S 

10000 

13000 

0 

0 

OP^l 

13000 

15000 

10000 

0 

op^e 

15000 

16000 

0 

0 

OP~8 

16000 

17000 

0 

0 

OP_l 

20000 

22000 

20000 

0 

OP~2 

24000 

25000 

24000 

0 

OP^S 

25000 

28000 

25000 

0 

op^e 

30000 

31000 

30000 

0 

•-  Violate  Harmonic 

OP~8 

31000 

32000 

31000 

0 

•-  Block  Length 

EARLIEST  DEADLINE 


OPERATOR 

START  TIME 

STOP  TIME 

LOWER 

UPPER 

DWIMY  START  NODE 

0 

0 

30010 

0 

OP_l 

0 

2000 

0 

0 

OP~4 

2000 

3000 

0 

0 

Op23 

3000 

8000 

0 

0 

OP~7 

8000 

9000 

0 

0 

OP_2 

9000 

10000 

0 

0 

OP^S 

10000 

13000 

0 

0 

OP~l 

13000 

15000 

10000 

17000 

OP~6 

15000 

16000 

0 

0 

OP~8 

16000 

17000 

0 

0 

OP^l 

20000 

22000 

20000 

27000 

op^a 

24000 

25000 

24000 

33000 

OP~5 

25000 

28000 

25000 

33000 

OP~8 

31000 

32000 

31000 

40000 

•-  Violate  Harmonic 

OP~6 

32000 

33000 

30000 

41000 

•-  Block  Length 

SIMULATED  ANNEALING 

OPERATOR 

START  TIME 

STOP  TIME 

LOWER 

UPPER 

DUMMY  START  NODE 

0 

0 

30010 

0 

OP_l 

0 

2000 

0 

7000 

Op34 

2000 

3000 

2000 

16000 

OP^S 

3000 

8000 

3000 

13000 

OPJf 

8000 

9000 

8000 

25000 

OP~2 

9000 

10000 

9000 

18000 

OP_5 

10000 

13000 

10000 

18000 

OP  6 

13000 

14000 

13000 

24000 

OP_8 

14000 

15000 

14000 

23000 

OP_l 

15000 

17000 

10000 

17000 

OP_l 

20000 

22000 

20000 

27000 

OP_2 

24000 

25000 

24000 

33000 

OP_5 

25000 

28000 

25000 

33000 

OP^S 

28000 

29000 

28000 

39000 

OP~8 

29000 

30000 

29000 

38000 
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deadline,  because  they  exceed  the  harmonic  block  length.  The  previous 
version  of  the  static  scheduler  would  have  output  these  schedules  as  correct 
schedules,  even  though  they  are  not  correct. 

The  second  test  case  is  based  on  the  functional  specifications  of  the  C  I 
work  station  described  in  (Anderson,  1990)  and  implemented  in  Coskun, 
1990).  The  input  file  and  precedence  graph  are  presented  in  Appendix  B  of 
this  thesis  and  the  results  are  presented  in  Table  2.  This  case  is  more 
complicated  than  the  first  test  case.  It  consists  of  19  time  critical  operators. 
There  is  no  specific  starting  operator.  Any  one  of  five  operators  may  begin 
execution  at  the  start  of  the  harmonic  block.  There  is  a  variance  in  periods 
between  the  various  operators.  The  precedence  relationships  in  this  example 
are  more  complicated  than  the  first  case.  As  in  the  first  case,  due  to  the  tight 
timing  constraints,  earliest  start  and  earliest  deadline  fail  to  find  a  feasible 
schedule.  Simulated  annealing,  however,  is  able  to  rapidly  find  a  feasible 
schedule. 

These  two  test  cases  indicate  that  simulated  annealing  shows  promising 
results  in  solving  the  hard  real-time  scheduling  problem.  It  appears  that 
simulated  annealing  will  perform  well  as  a  scheduling  tool  when  both 
earliest  start  and  earliest  deadline  fail.  The  cost  of  using  simulated  annealing 
is  low  enough  for  it  to  be  used  before  trying  a  more  costly  enumeration 
algorithm. 
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TABLE  2.  RESULTS  OF  THE  SECOND  TEST  CASE 

EARLIEST  START 


OPERATOR 

START  TIME 

STOP  TIME 

LOWER 

UPPER 

DUMMY  START  NODE 

0 

0 

21010 

0 

HEAPOHS_SYSTEMS 

0 

100 

0 

0 

MEAPONS“lNTERFACE 

100 

200 

0 

0 

CREATE_POSITION_DATA 

200 

700 

0 

0 

MONITOR_OWNSHIP~POSITION 

700 

1200 

0 

0 

CREATE_SENSOR_DATA 

1200 

1300 

0 

0 

ANALYZE_SENSOR_DATA 

1300 

1550 

0 

0 

PREPARE~SENSOR~TRACK 

1550 

1800 

0 

0 

FI  LTER_iEllSOR_TRACKS 

1800 

2300 

0 

0 

ADD_SEiisOR_TRACK 

2300 

2800 

0 

0 

PREPARE_PERIODIC  REPORT 

2800 

3300 

0 

0 

NEAPONS~SYSTEMS  ~ 

3300 

3400 

3000 

0 

WEAPONs'lNTERFACE 

3400 

3500 

3100 

0 

CREATE_POSITIOH_DATA 

3500 

4000 

3200 

0 

MONITOR_OMNSHIP~POSITION 

4000 

4500 

3700 

0 

MAKE_ROOTING 

4500 

4800 

0 

0 

rORWARD_FOR_TRAIISMI  SS  ION 

4800 

4900 

0 

0 

COHVERT~TO_TEXT_FILE 

4900 

5000 

0 

0 

comms_lTnks 

5000 

5100 

0 

0 

PARSE~INPUT_FILE 

5100 

5350 

0 

0 

DECIDE_FOR_ARCHIVIHG 

5350 

5450 

0 

0 

EXTRACT_TRACKS 

5450 

5600 

0 

0 

FILTER_COt«S  TRACKS 

5600 

6100 

0 

0 

HEAPONi_SYSTEMS 

6100 

6200 

6000 

0 

meapons^interface 

6200 

6300 

6100 

0 

CREATE_POSITION  DATA 

6300 

6800 

6200 

0 

M0(IIT0R_0WNSHIP“P0SITI0N 

6800 

7300 

6700 

0 

ADD_COMMS_TRACK~ 

7300 

7400 

0 

0 

CREATE_SENSOR_DATA 

8200 

8300 

8200 

0 

ANALY2E_SENSOR_DATA 

8300 

8550 

8300 

0 

prepare'sensor'track  . 

8550 

8800 

8550 

0 

FILTER_iENSOR  TRACKS 

8800 

9300 

8800 

0 

NEAPONS_SYSTEMS 

9300 

9400 

9000 

0 

MEAPONs'lNTERFACE 

9400 

9500 

9100 

0 

CREATE_POSITION_DATA 

9500 

10000 

9200 

0 

ADD_SENSOR_TRACK 

10000 

10500 

9300 

0 

MONITOR_OMNSHIP_POSITION 

10500 

11000 

9700 

0 

PREPARE~PERI0D1C  REPORT 

11000 

11500 

9800 

0 

MAKE_ROOTINC 

11500 

11800 

11500 

0 

FORNARO_FOR_TRANSMISSION 

11800 

11900 

11800 

0 

CONVERT~TO_TEXT  FILE 

11900 

12000 

11900 

0 

COMMS_LINKS 

12000 

12100 

12000 

0 

NEAPONS_SYSTEMS 

12100 

12200 

12000 

0 

PARSE  INPUT  FILE 

12200 

12450 

12100 

0 

NEAPOHS_INTERrACE 

12450 

12550 

12100 

0 

CREATE_POSITIOH_DATA 

12550 

13050 

12200 

0 

decide~for_archIving 

13050 

13150 

12350 

0 

EXTRACT_TRACKS 

13150 

13300 

12450 

0 

FILTER_COMMS  TRACKS 

13300 

13800 

12600 

0 

MONITOR_ONNSilP  POSITION 

13800 

14300 

12700 

0 

ADD_CO»is_TRACK“ 

14300 

14400 

14300 

0 

NEAPONS_SYSTEMS 

15000 

15100 

15000 

0 

neapons^interface 

15100 

15200 

15100 

0 

CREATE_SENSOR_OATA 

15200 

15300 

15200 

0 

CREATE~POSITIOT_DATA, 

15300 

15800 

15200 

0 

ANALYZE_SEMSOR  DATA 

15800 

16050 

15300 

0 

PREPARE~SENSOR~TRACK 

16050 

16300 

15550 

0 
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TABLE  Z  RESULTS  OF  THE  SECOND  TEST  CASE  (CONTINUED) 


MONITOR_OHHSHIP_POSITION 

riLTER_iENSOR_TRACKS 

iU)D_SENSOR_TRACK 

PREPARE_PERIODIC_REPORT 

MEAPONS_SYSTEMS  “ 

HEAPONS~INTERFACE 

CREATE  POSITION  DATA 

MAKE_ROOTIMG 

MONITOR_OHNSHIP_POSITION 

FORNARO_FOR_TRANSHISSION 

cohvert2to_text_file 

COMMS_LINKi 
PARSE~INPOT_FILE 
DECIDE_FOR_ARCHIVING 
EXTRACT_TRACKS 
FILTER  COtMS  TRACKS 


16300 

16800 

15700 

0 

16800 

17300 

15800 

0 

17300 

17800 

16300 

0 

17800 

18300 

16800 

0 

18300 

18400 

18000 

0 

18400 

18500 

18100 

0 

18500 

19000 

18200 

0 

19000 

19300 

ISSOO 

0 

19300 

19800 

18700 

0 

19800 

19900 

18800 

0 

19900 

20000 

18900 

0 

20000 

20100 

19000 

0 

20100 

20350 

19100 

0 

20350 

20450 

19350 

0 

20450 

20600 

19450 

0 

20600 

21100 

19600 

0 

*-  Violate  Harmonic 
Block  Length 

EARLIEST  DEADLINE 


THE  BEST  SCHEDULE  FOU/3HS: 


OPERATOR 

START  TIME 

STOP  TIME 

LONER 

UPPER 

DUMMY  START  NODE 

0 

0 

21010 

0 

NEAPONS_SYSTEMS 

.  0 

100 

0 

0 

HEAPONs'lNTERFACE 

100 

200 

0 

0 

CREATE_POSIT10N_DATA 

200 

700 

0 

0 

MONITOR_OHNSRIP~POSITION 

700 

1200 

0 

0 

CREATE_iENSOR_DATA 

1200 

1300 

0 

0 

ANALYZE_SENSOR_DATA 

1300 

1550 

0 

0 

PREPARE~SENSOR~TRACK 

1550 

1800 

0 

0 

FILTER_SENSOR  TRACKS 

1800 

2300 

0 

0 

AOD_SENSOR_TRACK 

2300 

2800 

0 

0 

PREPARE_PERIODIC_REPORT 

2800 

3300 

0 

0 

CREATE_^POSIT10N_DATA  ' 

3300 

3800 

3200 

5700 

HEAPONi_SYSTEMS~ 

3800 

3900 

3000 

5900 

NEAPONS~INTERFACE 

3900 

4000 

3100 

6000 

MONITOR~ONNSHIP_POSITION 

4000 

4500 

3700 

6200 

MAKE_ROUTIHG 

4500 

4800 

0 

0 

FORNARO_FOR_TRANSMISSION 

4800 

4900 

0 

0 

CONVERT~TO  TEXT^FILE 

4900 

5000 

0 

0 

COMMS_LlNia 

5000 

5100 

0 

0 

parse“inpot_file 

5100 

5350 

0 

0 

DECIDE  FOR  ARCHIVING 

5350 

5450 

0 

0 

EXTRACT_TRACRS 

5450 

5600 

0 

0 

FILTER_COtl1S_TRACKS 

5600 

6100 

0 

0 

AOO_CO(MS  TRACK 

6100 

6200 

0 

0 

CREATE_POSITION_DATA 

6200 

6700 

6200 

8700 

MEAPONS_SYSTEMS~ 

6700 

6800 

6000 

8900 

NEAPONS~INTERFACE 

6800 

6900 

6100 

9000 

MOHITOR_OIINSHIP_POSITION 

6900 

7400 

6700 

9200 

CREATE_POSITION~OATA 

9200 

9700 

9200 

11700 

NEAPONi  systems' 

9700 

9800 

9000 

11900 

NEAPONS'lMTERFACE 

9800 

9900 

9100 

12000 

momitor~onnship_position 

9900 

10400 

9700 

12200 

CREATE_POSITION~OATA 

12200 

12700 

12200 

14700 

neapons_systems~ 

12700 

12800 

12000 

14900 

neapons'imterface 

12800 

12900 

12100 

15000 

aralyze~semsor_data 

12900 

13150 

8300 

15050 

CREATE_SENSOR_DATA 

13150 

13250 

8200 

15100 
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TABLE  2.  RESULTS  OF  THE  SECOND  TEST  CASE  (CONTINUED) 


MONITOR_OHNSHIP_POSITION 

13250 

13750 

12700 

15200 

prepare3sensor_track 

13750 

11000 

8550 

15300 

FILTER_SENSOR  TRACKS 

11000 

11500 

8800 

15300 

ADD_SENSOR_TRACK 

11500 

15000 

9300 

15800 

PREPARE_PERIODIC_REPORT 

15000 

15500 

9800 

16300 

CREATE_POSITION_DATA 

15500 

16000 

15200 

17700 

WEAPONS  SYSTEMS~ 

16000 

16100 

15000 

17900 

WEAPONS_INTERFACE 

16100 

16200 

15100 

18000 

HAKE_ROOTING 

16200 

16500 

11500 

18200 

M0Nlf0R_0WNSHIP_P0SITI0N 

16500 

17000 

15700 

18200 

FORNARO_FOR_TRANSMISSION 

17000 

17100 

11800 

18700 

CONVERT~TO_TEXT_FILE 

17100 

17200 

11900 

18800 

PARSE_INPOT  FILE 

17200 

17450 

12100 

18850 

COMMS~LINKS~ 

17150 

17550 

12000 

18900 

FILTER_COM(S_TRACKS 

17550 

18050 

12600 

19100 

OECIDE~FOR_ARCHIVING 

16050 

16150 

12350 

19250 

EXTRACT_TRACKS 

18150 

18300 

12450 

19300 

ADD_COHMS_TRACK 

18300 

18100 

13100 

20000 

CREATE_POSZTZON  DATA 

18100 

18900 

18200 

20700 

HEAPOMS_SYSTEMS~ 

18900 

19000 

18000 

20900 

HEAPOMS_IHTERFACE  - 

19000 

19100 

18100 

21000 

MONITOR_OWNSHIP  POSITION 

19100 

19600 

18700 

21200 

ANALYZE~SENSOR_DATA 

19600 

19850 

15300 

22050 

CREATE_iENSOR_DATA 

19650 

19950 

15200 

22100 

PREPARi_SENSOR_TRACK 

19950 

20200 

15550 

22300 

FI LTER_iENSOR_TRACKS 

20200 

20700 

15800 

22300 

ADD_SENSOR_TRACK 

20700 

21200 

16300 

22800 

PREPARE_PERIODIC  REPORT 

21200 

21700 

16800 

23300 

MAKE^^ROOTING 

21700 

22000 

18500 

25200 

FORWARD_FOR_TRANSM I SS ION 

22000 

22100 

18800 

25700 

CONVERt“tO_TEXT  FILE 

22100 

22200 

18900 

25800 

PARSE_INPOT_FILE 

22200 

22450 

19100 

25850 

COMMS_LINKS*’ 

22150 

22550 

19000 

25900 

FILTER_COmS__TRACKS 

22550 

23050 

19600 

26100 

OECIOE^FOR.ARCHIVING 

23050 

23150 

19350 

26250 

EXTRACT_TRACKS 

23150 

23300 

19150 

26300 

ADD_COMMS_TRACK 

23300 

23400 

20100 

27000 

Simulated  Annealing 

OPERATOR 

START  TIME 

STOP  TIME 

LOWER 

UPPER 

DUMMY  START  NODE 

0 

0 

21010 

0 

CREAIE_POSITION_DATA 

0 

500 

0 

2500 

create'sensor^data 

500 

600 

500 

7100 

WEAPONS  SYSTEMS 

600 

700 

600 

3500 

ANALYZE~SENSOR  DATA 

700 

950 

700 

7150 

comms_lInks 

950 

1050 

950 

7850 

MEAP0NS_1NTERFACE 

1050 

1150 

1050 

3950 

monitor3ownship_position 

1150 

1650 

1150 

3650 

prepare'sensor  ^ck 

1650 

1900 

1650 

8100 

FILTER_.iENSOR_TRACKS 

1900 

2400 

1900 

8400 

ADD_SENSOR_TRACK 

2100 

2900 

2400 

8900 

PREPARE  PERIODIC  REPORT 

2900 

3100 

2900 

9400 

MAKE^ROOTIHG 

3100 

3700 

3400 

10100 

NEAPONS_SYSTEMS 

3700 

3800 

3600 

6500 

PORNARD~FOR_TRAMSMISSION 

3800 

3900 

3700 

10600 

convert“to  text  file 

3900 

4000 

3800 

10700 

PARSE  INPUT  FILE 

4000 

1250 

3900 

10650 

Violate 

Harmonic 

BioeX 

.Length 


47 


TABLE  2.  RESULTS  OF  THE  SECOND  TEST  CASE  (CONTINUED) 


HEAPONS_INTERFACE 

4250 

4350 

4050 

6950 

DECIDE  FOR  ARCHIVING 

4350 

4450 

4150 

11050 

EXTRACT_TRACKS 

4450 

4600 

4250 

11100 

FI LTER_COMMS_TRACKS 

4  600 

5100 

4400 

10900 

ADD_COims_TRACK 

5100 

5200 

4  900 

11800 

CREATE_P0ilTI0N_DATA 

5200 

5700 

3000 

5500 

MONITOR_OWNSRIP  POSITION 

5700 

6200 

4150 

6650 

CREATE_POSITION_DATA 

6200 

6700 

6000 

8500 

HEAPONS_SYSTEMS~ 

6700 

6800 

6600 

9500 

HEAPONS_INTERFACE 

7050 

7150 

7050 

9950 

MONITOR~OHNSHIP_POSITION 

7150 

7650 

7150 

9650 

CREATE_SENSOR_DATA 

7650 

7750 

7500 

14400 

ANALYZE_SENSOR  DATA 

7750 

8000 

7700 

14450 

COMMS_I,INKS  ~ 

8000 

8100 

7950 

14850 

PREPARE_SENSOR_TRACK 

8650 

8900 

8650 

15400 

FI LTER_SENSOR_TRACKS 

8900 

9400 

8900 

15400 

CREATE_POSITIOH  DATA 

9400 

9900 

9000 

11500 

HEAPONS_SYSTEMS 

9900 

10000 

9600 

12500 

ADD^SENi0R_TRACK 

10000 

10500 

9400 

15900 

MONITOR_0»WSHIP_POSITIDN 

10500 

11000 

10150 

12650 

MEAPONS_IHTERFACE 

11000 

11100 

10050 

12950 

PREPARE~PERIODIC  REPORT 

11100 

11600 

9900 

16400 

MAKE_ROOTING 

11600 

11900 

10400 

17100 

FORNARO_FOR_TRANSHISSION 

11900 

12000 

10700 

17600 

CONVERT_TO_TEXT  FILE 

12000 

12100 

10800 

17700 

create_posTtion“data 

12100 

12600 

12000 

14500 

PARSE_INPOT_FILE 

12600 

12850 

10900 

17650 

HEAPONS_SYSTEMS 

12850 

12950 

12600 

15500 

DECIDE_rOR_ARCHIVING 

12950 

13050 

11150 

18050 

EXTRACT_TRACKS 

13050 

13200 

11250 

18100 

MONITOR^OHNSHIP  POSITION 

13200 

13700 

13150 

15650 

MEAPONS_INTERFACE 

13700 

13800 

13050 

15950 

FILTER_COMMS_TRACKS  ■ 

13800 

14300 

11400 

17900 

ADD_COMMS_TRACK 

14300 

14400 

11900 

18800 

CREATE_SENSOR_DATA 

14500 

14600 

14500 

21400 

ANALYZE_SENSOR_DATA 

14700 

14950 

14700 

21450 

co»ws_lInks 

14950 

15050 

14950 

21850 

CREATE_POSITION_DATA 

15050 

15550 

15000 

17500 

HEAPOHS_SYSTEMS~ 

15600 

15700 

15600 

18500 

PREPARE~SENSOR_TRACK 

15700 

15950 

15650 

22400 

FILTER_SEKSOR_TRACKS 

15950 

16450 

15900 

22400 

MOHITOR_OIIHSHIP_POSITION 

16450 

16950 

16150 

18650 

HEAPONS_INTERFACE 

16950 

17050 

16050 

18950 

ADD_SENioR__TRACK 

17050 

17550 

16400 

22900 

PREPARE_PERIODIC  REPORT 

17550 

18050 

16900 

23400 

CREATE_POSITION  DATA 

18050 

18550 

18000 

20500 

MAKE_ROOTIMG 

18550 

18850 

17400 

24100 

HEAPONS_SYSTEMS 

18850 

18950 

18600 

21500 

FORHARD_FOR_TRANSHISSION 

18950 

19050 

17700 

24600 

CONVERT~TO_TEXT_FILE 

19050 

19150 

17800 

24700 

heapons^interface 

19150 

19250 

19050 

21950 

monitor'ouhship  position 

19250 

19750 

19150 

21650 

PARSE_INPOT_FILE 

19750 

•  20000 

17900 

24650 

DECIDE_FOR_ARCHIVING 

20000 

20100 

18150 

25050 

EXIRACT_TRACKS 

20100 

20250 

18250 

25100 

FILTER_COM1S  TRACKS 

20250 

20750 

18400 

24900 

ADD_CO»MS_IRACK 

20750 

20850 

18900 

25800 
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VL  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

This  thesis  intended  to  develop  a  fast  heuristic  static  scheduling 
algorithm.  Simulated  annealing  was  chc»en  as  a  basis  for  developing  such  a 
static  scheduling  algorithm  because  of  the  promising  results  simulated 
annealing  demonstrated  in  solving  other  NP-Hard  type  problems.  Simulated 
annealing  proved  to  be  useful  in  solving  optimization  t)rpe  problems,  and  the 
development  of  hard  real-time  schedules  is  a  subdass  of  diis  type  of  problem. 
The  initial  results  of  the  simulated  annealing  static  scheduling  algorithm  are 
promising. 

The  major  emphasis  of  this  thesis  was  the  development  of  a  new  static 
scheduling  algorithm.  In  addition,  this  thesis  btiilt  on  previous  research 
conducted  during  the  development  of  die  static  scheduler.  Modifications 
made  to  data  structures  and  scheduling  algorithms  already  implemented 
improved  the  performance  of  the  static  scheduler  portion  of  CAPS.  Several 
of  the  new  packages  and  data  structures  are  generic  in  nature  and  are 
available  to  be  used  beyond  the  scope  of  this  diesis.  This  is  possible  due  to  the 
use  of  the  Ada  principles  of  modularity  and  software  reusability. 

This  thesis  provides  a  running  static  scheduler  that  offers  several  choices 
of  algorithms  to  use  to  find  a  feasible  static  schedule.  Additional  algorithms 
can  be  added  to  the  static  scheduler  by  using  the  data  structures  developed  for 
this  thesis.  Additional  research  and  development  can  continue  to  build  on 
the  work  done  in  this  thesis. 
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B.  RECOMMENDATIONS 

As  a  result  of  this  thesis,  several  weaknesses  and  areas  requiring 
improvement  within  the  static  scheduler  were  identified.  Many 
shortcomings  were  corrected,  but  others  require  further  effort.  Due  to  the 
complexity  of  the  static  scheduler,  all  problems  identified  were  not  corrected. 

In  the  current  static  scheduler,  no  differentiation  is  made  between  data 
flow  and  sampled  stream  data  links.  The  performance  and  results  of  all 
scheduling  algorithms  would  most  likely  improve  if  this  information  were 
utilized. 

The  algorithm  described  and  implemented  in  (Coskun,  1990)  that 
calculates  periodic  equivalents  for  non-periodic  time  critical  operators  merits 
further  examination.  This  algorithm  is  based  on  a  theorem  described  in 
(Mok,  1985).  Linked  list  data  structures  are  used  in  the  algorithm  when  arrays 
could  suffice,  saving  execution  time.  Four  separate  linked  list  traversals  are 
made  in  this  algorithm.  The  performance  and  output  of  this  indicate  that  it 
could  be  improved. 

The  development  of  a  PSDL  data  t3rpe  implemented  in  Ada  will  simplify 
the  package  FRONT_END  described  in  Chapter  IV  of  this  thesis.  When  this 
package  is  available  (see  S.  Baromoglu,  The  Design  and  Implementation  of  an 
Expander  for  the  Hierarchical  Real-Time  Constraints  of  Computer-Aided 
Prototyping  System  (CAPS),  Master's  Thesis,  Naval  Postgraduate  School, 
Monterey,  CA,  September  1991)  the  FRONT_END  package  should  be 
modified  to  use  the  PSDL  datatypes  to  provide  input  to  the  static  scheduler. 
Once  this  occurs,  the  requirement  for  the  ATOMIC.INFO  file  becomes 
unnecessary. 
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APPENDIX  A.  CASE  1  TEST  DATA 


Precedence  Graph,  Test  Case  1 


ATOMIC 

PERIOD 

ATOMIC 

PERIOD 

D 

H 

OP_l 

30000 

OP_6 

15000 

OP  2 

OP  4 

MET 

WITHIN 

MET 

WITHIN 

0 

0 

2000 

15000 

1000 

10000 

OP  6 

OP  6 

PERIOD 

ATOMIC 

PERIOD 

LINK 

LINK 

LINK 

10000 

OP  4 

15000 

A 

E 

I 

WITHIN 

MET 

WITHIN 

OP  1 

OP  2 

OP  4 

9000 

1000 

12000 

0 

0 

0 

ATOMIC 

PERIOD 

ATOMIC 

OP  2 

OP  5 

OP  7 

OP_2 

30000 

OP  7 

LINK 

LINK 

LINK 

MET 

WITHIN 

MET 

B 

F 

J 

1000 

15000 

1000 

OP  1 

OP  3 

OP  5 

PERIOD 

ATOMIC 

PERIOD 

0 

0 

0 

15000 

OP_5 

30000 

OP  3 

OP_5 

OP  8 

WITHIN 

MET 

WITHIN 

LINK 

LINK 

LINK 

10000 

3000 

18000 

C 

G 

K 

AT(»1IC 

PERIOD 

ATOMIC 

OP  1 

OP  3 

OP  7 

OP  3 

15000 

OP  8 

0 

0 

0 

MET 

WITHIN 

MET 

OP  4 

OP  7 

OP  8 

5000 

11000 

1000 

LINK 

LINK 

LINK 

51 


APPENDIX  B.  CASE  2  TEST  DATA 


Precedence  gniph.  Case  2 
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ATOMIC 

COMMS_LINKS 

MET 

100 

PERIOD 

7000 

ATOMIC 

PARSE_INPUT_F ILE 

MET 

250 

PERIOD 

7000 

ATOMIC 

DEC IDE_FOR_ARCH I VING 
MET 
100 

PERIOD 

7000 

ATOMIC 

EXTRACT_TRACKS 

MET 

150 

PERIOD 

7000 

ATOMIC 

MAKE_ROUTING 

MET 

300 

PERIOD 

7000 

ATOMIC 

FORWARD_FOR  TRANSMISSION 
MET  ~ 

100 

PERIOD 

7000 

ATOMIC 

CONVERT_TO_TEXT_F ILE 
MET 
100 

PERIOD 

7000 

ATOMIC 

PREPARE_PERIODIC_REPORT 

MET 

500 

PERIOD 

7000 

ATOMIC 

FILTER  COMMS_TRACKS 
MET  “ 


500 

PERIOD 

7000 

ATOMIC 

ADD_COMMS_TRACK 

MET 

100 

PERIOD 

7000 

ATOMIC 

FILTER_SENSOR_TRACKS 

MET 

500 

PERIOD 

7000 

ATOMIC 

ADD_SENSOR_TRACK 

MET 

500 

PERIOD 

7000 

ATOMIC 

MONITOR_OWNSHIP_POSITION 

MET 

500 

PERIOD 

3000 

ATOMIC 

CREATE_SENSOR_DATA 

MET 

100 

PERIOD 

7000 

ATOMIC 

ANALyZE_SENSOR_DATA 

MET 

250 

PERIOD 

7000 

ATOMIC 

PREPARE_SENSOR_TRACK 

MET 

250 

PERIOD 

7000 

ATOMIC 

CREATE_POS IT ION_D ATA 

MET 

500 

PERIOD 

3000 
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ATOMIC 

WEAPONS_INTERFACE 

MET 

100 

PERIOD 

3000 

ATOMIC 

WEAPONS_SYSTEMS 

MET 

100 

PERIOD 

3000 

ATOMIC 

DISPLAY_TRACKS 

ATOMIC 

GET_USER_INPUTS 

ATOMIC 

MANAGE_USER_INTERFACE 

ATOMIC 

STATUS_SCREEN 

ATOMIC 

EMERGENCY_STATUS_SCREEN 

ATOMIC 

MESSAGE_EDITOR 

ATOMIC 

MES  S AGE_ARRI VAL_P ANEL 
LINK 

INPUT_LINK_MESSAGE 

COMMS_LINKS 

1200 

PARSE__INPUT_F  ILE 
LINK 

INPUT_TEXT_RECORD 
PARSE_INPUT_F ILE 
500 

DECIDE_FOR_ARCHIVING 

LINK 

TDD_ARCH I VE_SETUP 
GET_USER_INPUTS 
0 

DEC IDE_FOR_ARCH I VING 
LINK 

COMMS_TEXT_F ILE 

DEC IDE_FOR_ARCH I VING 

500 

EXTRACT_TRACKS 

LINK 

COMMS_EMAIL 

DEC IDE_FOR_ARCH I VING 

500 

MESSAGE  ARRIVAL  PANEL 


LINK 

COMMS_ADD_TRACK 

EXTRACT_TRACKS 

500 

FILTER_COMMS_TRACKS 

LINK 

TDD_FILTER 

GET_USER_INPUTS 

0 

FILTER_COMMS_TRACKS 

LINK 

F ILTERED_COMMS_TRACK 

FILTER_COMMS_TRACKS 

500 

ADD_COMMS_TRACK 

LINK 

TDD_FILTER 

GET_USER_INPUTS 

0 

ADD_COMMS_TRACK 

LINK 

OUT_TRACKS 

ADD_COMMS_TRACK 

500 

DISPLAY_TRACKS 

LINK 

SENSOR_DATA 

CREATE_SENSOR_DATA 

800 

ANALYZE_SENSOR_DATA 

LINK 

SENSOR_CONTACT_DATA 

ANALYZE_SENSOR_DATA 

500 

PREPARE_SENSOR_TRACK 

LINK 

POSITION_DATA 
CREATE_POS IT ION_DATA 
800 

PREPARE_SENSOR_TRACK 

LINK 

SENSOR_ADD_TRACK 

PREPARE_SENSOR_TRACK 

500 

FILTER_SENSOR_TRACKS 

LINK 

TDD_FILTER 

GET_USER_INPUTS 

0 

F I LTER_SENSOR_TRACKS 
LINK 
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F ILTERED_SENSOR_TRACK 
FILTER__SENSOR  TRACKS 
500 

ADD_SENSOR_TRACK 

LINK 

TDD_FILTER 
GET__USER  INPUTS 
0 

ADD__SENSOR_TRACK 

LINK 

OUT_TRACKS 
ADD_SENSOR  TRACK 
500  “ 

DISPLAY_TRACKS 
LINK 

POSITION_DATA 
CREATE  POSITION  DATA 
800 

MONITOR_OWNSHIP  POSITION 
LINK  “ 

TD_TRACK_REQUEST 
GET_USER  INPUTS 
0 

DISPLAY_TRACKS 

LINK 

OUT_TRACKS 

MONITOR  OWNSHIP  POSITION 
500 

DISPLAY_TRACKS 

LINK 

WEAPON__STATUS_DATA 
WEAPONS  SYSTEMS 
500 

WEAPONS_INTERFACE 

LINK 

WEAPONS_STATREP 
WEAPONS  INTERFACE 
500 

STATUS_SCREEN 

LINK 

TCD_STATUS_QUERY 
GET_USER  INPUTS 
0 

STATUS__SCREEN 

LINK 

WEAPONS_EMREP 
WEAPONS  INTERFACE 
500 

EMERGENCY_STATUS  SCREEN 
LINK  “ 

EDITOR  SELECTED 


GET_USER  INPUTS 
0 

MESSAGE_EDITOR 

LINK 

TCD_TRANSMIT_COMMAND 
MESSAGE_ED ITOR 
0 

MAKE_ROUTING 

LINK 

TCD_NETWORK_SETUP 
GET_USER  INPUTS 
0 

MAKE_ROUTING 

LINK 

TRANSMISS ION_MESSAGE 

MAKE_ROUTING 

500 

FORWARD_FOR_TRANSMISS ION 
LINK 

TCD_EMISSION_CONTROL 
GET_USER  INPUTS 
0 

FORWARD_FOR_TRANSMI SS ION 
LINK 

OUTPUT_MESSAGES 

FORWARD  FOR  TRANSMISSION 

500 

CONVERT_TO_TEXT  FILE 
LINK  “ 

INITIATE_TRANS 
GET_USER  INPUTS 
0 

PREPARE_PERIODIC  REPORT 
LINK 

TERMINATE_TRANS 
GET_USER  INPUTS 
0 

PREPARE_PERIODIC  REPORT 
LINK 

TCD_TRANSMIT_COMMAND 
PREPARE_PERIODIC  REPORT 
800  “ 

MAKE  ROUTING 
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APPENDK  C.  MODIFffiD  PACKAGES 


withVSHUNGS; 
with  SEQUENCES: 
withTEXTJO; 

Ihis  padcagB  contains  all  of  the  global  declaratioiis  and  definitions 
^  dm  stnictnres  that  are  necessaiy  for  the  Static  Scheduler 

package  DATA  is 

package  VASSITUNG  is  new  VST1UNGS(80); 
useVARSTRING: 

subtype  OPERATOR_ID  is  VSIRING; 
subO^pe  VALUE  is  NATURAL; 
subQpe  MET  is  VALUE; 
subQite  MRT  is  VALUE; 
sub^ite  MCP  is  VALUE; 
siibMie  PERIOD  is  VALUE; 
subtype  WTTHIN  is  VALUE; 
subtype  STARTS  is  VALUE; 
subtype  STOPS  is  VALUE; 
subQm  LOWERS  is  VALUE; 
subtype  UPPERS  is  VALUE; 

ExceptioiiLOpemtar :  (X'ERATOR.ID: 

TEST.VERIFIED :  BOCR£AN  >  TRUE; 


typeOPERATCSlis 

record 

THE  CX>ERATC»_ID 
THE  MET 
THE  MRT 
THE  MCP 
THE_PERIOD 
THE.WITHIN 
endreocxd; 


:  OPERATOR_ID; 
:MET:«0; 

;  MRT  0; 
:MCP:«0; 

:  PERIOD  :«0; 

:  WITHIN  :»(k 


padcage  V.LISTS  is  new  SEQUENCES(OPERATOR); 
oseV_LIST3; 


typeSCHEDULE_INPUTSis 

record 

THE_OPERATOR 
THE_START 
THE  STW 
THEJjQWER 
THE  UPPER 
THE_INSTANCE 
end  record; 


INTEGER; 
STARTS:-!); 
STOPS  :-0; 
LOWERS:-!); 
UPPERS:-!); 
INTEGER:-  1; 


package  SCHEDULEJNPUTS_LIST  is  new  SEQUENCES(SCHEDULE_INPUTS); 
package  NODE_UST  is  new  SEQUENCES(INTEGER); 


NON^CRITS 

AG.OUTFILE 

INPUT 

OUTPUT 


TEXTJOJTLE  TYPE; 

TEXTJOJTLEJTYPE; 

TEXT  lOPILE  MOM  >  TEXTJO.IN  FILE; 
TEXT  IOJILE_MODE:«TEXT_IO.Olfr  FILE; 


S6 


CuneaL.Value  :  VALUE; 

Ncw.Wofd  :  VARSTOING.VSTRING 

CurjOpt  :  OPERATOR; 

OP.COUNT  :  INTEGER; 

OP.UST  :  V_USTSiIST; 

end  DATA; 


generic 

type  ITEM  is  private: 
padcage  SEQUENCES  is 
type  NODE; 

tj^  LIST  is  access  NODE; 
type  NODE  is 
lecocd 

ELEMENT  :ITEM; 

NEXT  :UST:=null; 

PREVIOUS  :UST:»null;-*(APR91) 
end  record; 

BAD.VALUE :  excqKion; 

function  EQUAL(L1 :  in  LIST;  L2 :  in  LIST)  return  BOOLEAN; 

peocedure  EMPTY(L :  out  LIST^: 

function  NON.EMPTY(L ;  in  USD  Rtum  BOOLEAN; 

fimctian  SUBSEQUENCE(L1 ;  in  LIST;  L2 :  in  USD  return  BOOLEAN; 

function  MEMBER(X :  in  ITEM;  L :  in  USD  return  BOOLEAN; 

procedure  ADD(X :  in  ITEM;  L :  in  out  UST); 

procedure  REMOVE(X :  in  riEM;  L :  in  out  USD: 

procedure  LIST_REVERSE(L1 :  in  LIST;  L2 :  in  out  USD: 

procedure  FREE_UST(L:  in  out  USD: 

(JUL  91)  Used  by  annealling  and  Exluinstive  Enumeration  to  reclaim 
memory  space  that  is  no  longer  needed. 

procedure  DUFUCATE^l :  in  UST;  L2:  in  out  USD: 

fimctiao  LOOK4(X :  in  ITEM;  L :  in  LISD  return  LIST; 

procedure  NEXTCL :  in  out  USD: 

procedure  PR£VIOUS(L :  in  out  USD: 

(APR  91)  Ured  by  annealling 

function  VALUE(L :  in  USD  ictnni  ITEM; 

procedure  INSERTJ4EXT(X :  in  ITEM;  L ;  in  out  USD: 

(June  91)  Item  is  inserted  in  proper  position  in  list 

procedure  REPLACE_nEM(X :  in  ITEM;  L :  in  out  USD: 

*-*  (JUL  91)  Used  fay  annetdling 

proceAireCXXnrjJSTXLl ;  in  UST;  L2 :  in  out  USD: 

— *  (JUL  91)  Used  by  annealling  to  reclaim  memory  that  is  no  longer  needed 


end  SEQUENCES; 
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with  UNCHECKED  DEALLOCATION; 
wi*  TEXTja,  -*  lesKApr  91) 

package  body  SEQUENCES  is 

pragma  LINK_wrrHnieig)lib.spaxc.aO; 

piocedure  FREE  is  new  UNCHECKED_DEALLOCATION(NODE.  LIST); 


function  NON_EMPTY(L :  in  LIST)  return  BOOLEAN  is 

be^ 

uLs  null  then 
return  FALSE; 
else 

return  TRUE; 
end  if; 

endNON_EMPTY; 


procedure  NEXT(L ; 
begin 

^  A"  null  then 
L:-LNEXT; 
end  if; 
end  NEXT; 


in  out  LIST)  is 


procedure  PREVIOUS(L :  in  out  USD  is  ***  This  procedure  was  added  10  Apr  91 
brain  to  allow  the  annealling  routine  to 

ifL  />  nun  then  traverse  throu^  Agenda  in  Reverse 

L:-LJ>REVIOUS;  order. 


end  if; 

end  PREVIOUS; 


function  LOOK4(X :  in  ITEM;  L :  in  USD  return  LIST  is 
LI  :UST:«>L; 
begin 

while  NC»4  EMFTY(L1)  loop 
ifLl£LEMENT«Xthen 
return  LI; 
end  if; 

NEXT(L1); 
end  loop: 
return  nidi; 
endLOOK4: 


procedure  ADD(X :  in  ITEM;  L :  in  out  USD  is 
-  ITEM  IS  ADDED  TO  THE  HEAD  OF  THE  LIST 
T:UST:«  new  NODE; 
begin 

T.ELEMENT:«X; 

TJ»REVIOUS null;  -•  (Apr  91) 
if  L  B  mill  then 
TJ^EXT nulL- 
else 

TJIEXT:«L; 

LJREVIOUS :»  T;  (Apr  91) 
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end  if; 

L>T; 
end  ADD; 

function  SUBSEQUENCE(L1 :  in  LIST;  L2 :  in  LIST)  letum  BOOLEAN  is 
L:UST:-L1; 
begin 

while  NON_EMPTy  (L)  loop 
if  not  MEMBER(VALUE(L).  L2)  then 
teturn  FALSE; 

Old  if; 

NEXT(L); 
endlora; 
retuniTRUE; 
end  SUBSEQUENCE; 

function  EQUAL(L1 :  in  LIST;  L2 :  in  LIST)  return  BOOLEAN  is 
begin 

return  (SUBSEQUENCE(L1.  L2)  and  SUBSEQUENCE(L2.  LI)); 
end  EQUAL; 

procedure  EMPTY(L :  out  LIST)  is 
begin 
LranuU; 
end  EMPTY; 

function  MEMBER(X :  in  ITEM;  L :  in  LIST)  return  BOOLEAN  is 

**fLOOK4(X.  L)  /=  nuU  then 
teturn  TRUE; 
else 

tehim  FALSE; 
end  if; 

end  MEMBER; 

procedure  REMOVE(X :  in  ITEM;  L :  in  out  LIST)  is 
HEADER.  ADDED  ON  21  MAY  91  TO  CORRECT  ERROR 
CURR:UST>L; 

PREV:UST>null; 

TEMP:  LIST  :-nun; 
begin 

while  NON_EMPTY(CURR)  loop 
if  VALUE(CURR)  -  X  then 
TEMP>CURR; 

NEXT(CURR); 
lEMPi^REVIOUS :«  nuQ; 

TEMPJ«)EXT:-nuIl; 

FREE(TEMP); 

if  FREV  h  null  then  -*  Operator  we  are  removing  is  within  list 
PREVJ«XT:-CURR; 
else 

HEADER  >1 CURR;  -*  ADDED  21  MAY  91  TO  CORRECT  ERROR 
end  if; 

if  CURR  h  nuU  then  List  contains  other  items  so  we  must  relink 

CURRPREVIOUS  :■  PREV;-*  the  list  in  reverse.  (>^  91) 

end  if; 
dse 

PREV :«  CURR; 

NEXT(CURR); 
end  if; 
end  loop; 
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if  N(^JBMPTY(HEADER)  then -*  How  do  we  handle  removal  of  fim  item  in  list? 

L  >  HEADER;  -*  ADDED  21  MAY  91  TO  CORRECT  ERROR 
dae diagnoa&s  2  June  91 
L :»  CUE^ -*  diagnostics  2  June  91 
end  if. -*  diagnostics  2  June  91 
end  REMOVE; 

procedure  LIST  REVERSE(L1  :inLIST;L2:inoutLIST)is 
L:UST>L1; 
begin 

EMPTY(L2); 

while  NON  EMFTY(L)  loop 
ADD(VALUE(L).L2); 

NE3CT(L); 
end  loop; 

endL]ST_REVERSE; 

procedure  FREE_LIST(L:  in  outUST)  is 
CURR:UST:-L; 

TEMPiUSTi 

b^in 

while  NON_EMFTY(L)  loop 
NEXTCCURR); 
if  NCR^..^MPTY(CURR)  then 
CURRJ>REVIOUS null; 
end  if; 

LHEXT  null; 

FREE(L); 

L:«CURR; 


end  loop: 
endFREEJJST; 

procedure  DIJFLICATE(L1 

TEMP:UST:-nun: 

L:UST:-L1: 


:  in  UST;  L2 :  in  out  USl)  is 


ADD(VALUE(L).  TEMP); 

NEXT(L); 
end  loop; 

USTJtEVERSECIEMP.  L2); 
endDUFUCATE; 

function  VALUE(L :  in  USD  retum  ITEM  is 
beam 

If  NON_EMPTY(L)  then 
retum  LJELEMENT; 
else 

raise  BAD.VALUE; 
end  if; 

end  VALUE; 

procedure  INSERTJ4EXT(X :  in  ITEM;  L :  in  out  USD  is 
T  :  LIST:- new  NODE; 
begin 

TELEMENT>X; 
if  NON  EMPTY(L)then 
if  LJ4EXTM  null  then 
I.NEXTPREVIOUS T; 
end  if; 
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TPREVIOUS:»L; 

TJJEXT:=LJJEXT; 

LJ«Xr:sT; 
end  if; 

L:-T; 

end  INSERT_NEXT: 

procedure  REFLACE_nEM(X ;  in  ITEM;  L :  in  out  LIST)  is 
begin 

LELEMENT:«X: 

eodREPLACE_lTEM; 

procedure  COPY_LIST(Ll :  in  UST;  L2 :  in  out  LIST)  is 

CURR:UST3«L1; 

HEAD:  LIST  :«L2; 

TEMP:  UST; 

PREV:  UST. 

begin 

while  NCX4_EMFTy (CURR)  and  NON.EMFTY(L2)  loop 
L2JELEMENT  :>  VALUE(CURR): 

NETCIXCURR); 

PREV>L2; 

NEXIXU); 

endlOQ|K 

-*  HANDIE  CASE  WHEN L2  IS  LONGER  THANLl; 
if  not  NON JEMPTY(CURR)  and  NON_EMPTY(L2)  then 
PREV  J4EXT :-  null;  -•  DISCONNECT  EXCESS  FROM  L2 
while  NON_EMPTY(L2)  locp 
TEMP>L2; 

TEMPi>REVIOUS  >  nuO; 

NEXT(L2); 

TEMPJ4EXT  :>  null; 

FREECIEMP); 
end  loop; 

HANDLE  CASE  WHEN  LI  IS  LONGER  THAN  L2; 
elaif  NONJEMPTY(CllRR)  and  notN<»^_EMPTYa-2)  dien 
while  NON.EMFTy (CURR)  loop 
TEMP  >  new  NODE; 

PREVJ»ffiXT:»TEMP; 

TEMPELEMENT  :■  VALUE(CURR); 

TEMPJREVIOUS  >  PREV; 

PREV:- TEMP; 

NEXT(CURR); 
end  loop; 
end  if; 

L2>HEAD; 

endCOPYJUSr, 

end  SEQUENCES; 
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wilhTEXTJO; 

witfi  DATA; 

with  SEQUENCES; 

with  FRONT_END;  use  FRONT_END; 

package  TOPJS(^T  is 

procedure  T_S<»T(PRECEDENCE_UST:  in  out  DATAJ^ODE_LISTUST; 
COUNT:  in  INTEGER); 

— *  This  prooechire  produces  a  topological  sort  of  the  opetators  that  are  in 
the  I^W.GRAra  structure. 

endTOP_SORT; 

package  body  TCXLSORT  is 

procedure  T  SQRT(FRECEDENCE_UST  :  in  out  DATAJ^ODE.UST XIST; 
COUNT  :  in  INTEGER)  is 

pacirege  int_io  ia  new  TEXT_IOinteger_io(integer); 
oseintjo; 

type  I^GREES  is  amy  (O..COUNT)  of  INTEGER; 

IN_DEGREE:  KGREES*  *-*  Ind^ree  Anay  used  in  sorting 
package  QUEUES  is  new  SEQUENCES(INTEGER); 


PARENT.UST 

CHILD_UST 

PARENT.COUNT 

CHILD.COUNT 


:  DATAJ«ODE_LISTUST; 
:  DATA1^0DE_USTUST; 
:  INTEGER: 

:  INTEGER; 


QUEUE 

HEAD 


:  QUEUESUST; 
:QUEUESXIST; 


REVERSEDJ>REC JJST  :  DATAJ^ODEJUST UST; 


for  OP  in  1..00UNTkx» 

FR0NT.ENDJ<EW_GRAPHJ<ETURN_PARENT_LIST(PARENT_LIST,  op.  PARENT.COUNT); 
IN_DEOREE((X>)  >  PARENT.COUNT; 
endkxxr, 

QUEUES  ja>D(O.QUEUE);  -*  BECAUSE  OF  THE  USE  OF  A  DUMMY  START  NODE  THIS  NODE 
WILL  ALWAYS  BE  THE  FIRST  ELEMENT  IN  THE  QUEUE  WITH 
AN  IN_DEGREE  OF  ZERO. 

HEAD:- QUEUE; 

while  CRJEUES  J4CW_EMPTY(QUEUE)  loop 
FRONT.^NDJ4EW_ORAPILRETURN_anLI 
CHILD.COUNT); 

while  DATAlfODE  USTJ^ON  EMFTY(CHILO  LIST)  loop 
IN  DEGREE(DATAJ<ODE  LIST.VALUE(CHILD  UST))  :« 
IN_DEGREE(DATA.NODE_LIST.VALUE(CHILD_UST))  - 1; 
if  IN  DEGREE(DATA>rODE  UST.VALUE(CHILD  UST))«0then 
QUEUES  ADD(DATANODE_UST.VALUE(CHILD_LISD.  QUEUE); 
end  if; 


-D_LIST(CHILD_UST,  QUEUES.VALUE(HEAD), 
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DATAJ^ODE_USTJffiXT(CHILDJJST); 

endlocm; 

DATAJ40DE_LISTADD(QUEUES.VALUE(HEAD),  REVERSED  PREC  UST)* 
QUEUES  jlEMOVE(QUEUES.VALUE(HEAD),  QUEUE);  -  -  A 

HEAD  >  QUEUE; 
end  loop; 

^AT^ODE_LISTJJST_REVERSE(REVERSED_PRECJJST.PRECEDENCE_LIST); 

eiidTOP_SORT; 
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with  DATA;  use  DATA; 
package  PROCESSOR  is 

procedine  FIND_PERIODS(OP_UST :  in  out  V.USTSJLISD; 
pcoceduie  VAUDATE.DATA  (OP.UST :  in  out  V_USTSUST); 


NOT_FEASIBLE 

CRIT_OP_LACKS_MET 

MET_NOT_LESS  THAN_PERIOD 

METJ^OT_LESS_THAN_MRT 

MCP  NOT_LESS  THAN.MRT 

MCP  LESS_THAN_MET 

MET  IS  GREATER  TOAN.FINISH.WrrHIN 

SPORADIC_OPJLACKS_MCP 

SPORADIC_OP_LACKS_MRT 

PERIOD J<ESS.THAN_FINISH_WITHIN 


:  excq;>tiCMi; 
:  exertion; 
:  exertion; 
:  exception; 
:  exceinion; 
:excq>tion; 
:  exception; 
:  excq)tm; 
;excq»ion; 
rexcqMion; 


end  PROCESSOR; 
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withTEXTJO; 
with  DATA;  use  DATA; 


package  body  PROCESSOR  is 

procedure  FIND_PERIODS(OP_LIST :  in  out  V_LISTSUST)  is 


TARGET 

N 

L 

NEWJ>ERIOD 

OP 

C 

FIRST 

FOUND 

FRACTION 

FRjOCD 

LCM 

UNIT 

ALPHA 

OCD 


VJUSTSJLIST; 
NATURAL  :«0; 
FLOAT:- 0.0; 
NATURAL  :»0; 
OPERATOR; 
FLOAT; 

BOOLEAN:- true; 

BOOLEAN:- false; 

NATURAL; 

NATURAL; 

NATURAL; 

NATURAL; 

FLOAT, 

NATURAL; 


package  UO  is  new  TEXTJO  JNTEGERJO(NATURAL); 


procedure  CALCULATE_NEW  PERIOD  (O  :  in  OPERATOR; 

NEW  J>ERIOD :  in  out  NATURAL  )  is 

DIFFERENCE :  NATURAL; 

package  VALUEJO  is  new  TEXT_K) JNTEGER_IO(NATURAL); 
begin 


DIFFERENCE :-  O.THE.MRT  -  O.THE_MET; 
if  DIFFERENCE  <O.TOE_MCP  then 
NEWJ>ERIOD :-  DIFFERENCE; 


else 

NEWJ>ERIOD  >  O.IHEJktCP; 
end  if; 


end  CALCULA1E_NEW_FERIOD; 


function  FIND.OCD  (SMALL :  in  VALUE;  LARGE :  in  VALUE)  return  VALUE  is 
REMAINDER :  VALUE  SMALL; 
begm 

if  LARGE  mod  SMALL  -  0  then 
return  REMAINISBR; 
else 

REMAINZSR :«  FIND_GCD(LARGE  mod  SMALL,  SMALL); 
return  REMAINDER; 
end  if, 

endFIND.GCD; 

function  FIND_LCM  (NUMBERl,  NUMBER2 :  VALUE)  return  VALUE  is 
begin 

retumCNUMBERl  *  NUMBER2)  /  GCD, 
endFIND_LCM; 

function  REDUCE_TO_EVEN_FRACnON(  GCD,  PERIOD :  NATURAL)  return  NATURAL  is 
N :  NATURAL :-  GCD  /  PERIOD; 
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bogiii 

if  N*  PERIOD -GCD  then 
retiinN; 
else 

retumN-f  1; 
end  if; 

end  REDUCE_TO_EVEN_FRACnON; 


begin 

-FIRSTPASS 


-  Calculates  the  load  factor  for  all  pmodic  operators,  and  greatest  common 
~  divisor  of  the  periods  of  the  periodic  operators 

TARfSPT 'm  OP  I ICT* 

While  VJjyre  JJON.EMPTYCTARGET)  loop 
OP :»  V_USTS.VALUE(TARGET); 
if  OP.THE_MET  -  0  then 
Excqxion.Cteeraior :«  OP.THE_OPERATOR_ID; 
raise  CRIT_OP_LACKS_MET; 
dsifOP.THE  F^IOD^O  then -a  periodic  operator 
L L  +  FL0AT(CK*.THE_MET)310AT(0P.THE_PERI0D); 
if  FIRST  then 

GCD OP.THE_pERIOD: 

FIRST  :«Criae; 
else 

if  GCD  >  OP.THEJ>ERIOD  then 
GCD FlND_GCD(OP.THE_PERIOD,GCD); 
else 

GCD  >  FIND_GCD(GCD.OP.TOE_PERIOD): 
end  if; 
end  if; 
end  if; 

VJJSTSJffiXTCTARGET^; 
end  loop; 

-SECOND  PASS 

-Rnds  the  total  number  of  yiradic  operators  (N) 

-  For  the  noiadic  opeantton  with  user  defined  MRT  or  MCP  values,  calculates 

-  the  undMned  value  of  MCP  or  MRT  with  given  MRT  or  MCP 

-  And  finds  the  unit  ficttuCUNTT)  for  the  sporadic  operators  with  user  defined 
-MCP  or  MRT  wMicaIcnIated  periods  less  than  GcD  found  above 

TARGET  :»OP_LIST; 

FIRST  .*■  true; 

while  V JJSTS  J«)N_EMPTY(TARGET)  loop 
OP  >  V JJSTS.VALUE(TARGET); 
if  OP.THE_PERICD  «  0  then  -  a  sporadic  operator 
if  OP.THE_MCP  ^  0  and  OP.Tm_MRT-  0  then 
CM».1HE.>IRT:»C»*.THE_MET  +  OP.THE  MCP; 

TARGET.ELEMENT.THE  MRT :«  OP.THE_MRT; 
elsif  CX».THE_MCP  •  0  and  CX>.THE_MRT  0  then 
OP.THE_MCP>OP.THE_MRT-CH>.THE  MET; 
TAROETiLEMENT.TOE^lCP  >  OP.THE_MCP; 
end  if, 

if(X>.THE_MCP/-OandCX*.THE  MRT^Odien 
CALCULATE_NEW  PERIOD((»>JlEW  PERIOD); 
if  NEW_FERIOD  <  GCD  then 
POUND  :■  true; 

FRACTl»l:»GCD/REDUCE_TO_EVEN  FRACTICX4(GCDJ1EW  PERIOD); 
if  FIRST  then 
FR^GCD:- FRACTION; 

LCM.-«  FRACTION; 


FIRST :«  false; 
else 

if  FRACTION  >  FR_GCD  Uwn 
FR_GCD  :=  FIND_GCD(FR_GCD,  FRACTION); 
else 

FILGCD  :»  FIND_GCD(FRACnON  J=R_GCD); 
end  if; 

LCM  :■  FIND_LCM(LCKtFRACnON); 
end  if; 
end  if; 
else 

N:«N+1; 
end  if; 
end  if; 

VJJSTSJffiXTCTARGET); 
end  loop; 
ifFOUtothen 
UNTTn-LCM; 
else 

UNir^GCD; 

end  if; 

-THIRD  PASS 

-  emulates  and  writes  the  periods  for  the  qxxadic  opentocs  with  user  defined 
-MCP  or  MRT  by  using  die  UNIT  factor  calculated  above.  Modifies  the  load  factor 

—  L  in  m  first  pass.  Hnds  coefficient  ALPHA. 


TARGET  :-OP_UST; 

while  V JJSTS  J^WJEMPTYCTARGET)  kx^ 

OP  >  VJJSTS.VALUE(TARGET); 
ifQP.THE  PERIOD «0 then- a Kuradic operator 
ifOP.THE  MRTMOandOP.Tlffi.MCPMOthea 
CALCULATE_NEW  PERIOD(OPJ^W_PERIOD); 

NEW  PERIOD  :«NEW_PERIOD-NEW_PERIOD  mod  UNIT; 
OP.THE_PERIOD NEW_PERIOD; 

TEXT  lO J»UTrNew  PERIOD  for  operator  *0; 

VARSTOINGJ>UT(OP.THE_OPERATOR_ID); 

TEXTJOJVrris"); 

I_IOJ»UT(NEW_PERIOD.l); 

TEXT  lO J1EW_LINE; 

TAROETELEMENT.THE JERIOD OP.THE.PERIOD; 

L  >  L  +  FLOAT(OP.THE_MET)/FLOAT(NEW_PERIOD); 
endifi 
end  if; 

VJJSTSJ^EXTCTARGET); 
end  loop; 

ifL<0J  dien 
C  :■  0.5; 

eIsif’L>«0.SandL<  1.0  then 
C:»(1.0  +  L)/2.0; 
dse 

raise  NOT J^EASmiJE; 
endifi 

ALPHA  >  FLOAT(N)/(C  -  L)  +  1.0; 
if  ALPHA  <2.0  then 
ALPHA:- 2.0; 
oidifi 

-FOURTHPASS 
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Calculattis  and  writes  the  PERIOD,  MRT,  MCP  values  for  the  qxiradic  qteiatras 
without  user  defined  MCP  or  MRT  values 


TABrSPT  ••  OP  T  TOT* 

while  V_USTSiilONjEMPTy(TARGET)  loop 
OP :»  V_USTS.VALUE(TARGET); 
if  OP.THE.FERIOD  «  0  then  ~  a  sporadic  opoator 
ifOP.THE  MRT-OandOP.THE  MCP«0then 
OP.THE_MRT :«  NATURAL(ALPHA)  *  OP.THE  MET; 

OP.THE  MCP:=OP.THE_MRT-OP.THE_MET; 
if  (OP.THE  MCP  /  UNIT)  •  UNIT  h  OP.THE.MCP  then 
OP.THE  JERIOD OP.THE.MCP  +  UNIT  -  (OP.THE.MCP  mod  UNTT); 
else 

OP.THEJPERIOD :«  OP.THE.MCP; 
end  if; 

TEXT  lOiUTC^ew  PERIOD  for  operau»‘0: 
VARSTRINGJ»UT(OP.THE_OPERATOR_ID); 

TEXTJOJ»UTC‘is“): 

I_IOJ»UT(OP.THE  PERIOD.1); 

TEXTJOJffiWJJNE; 
endifi 
end  if; 

TARGETELEMENT.THE  PERIOD :«  (X>.THE_PERIOD; 
TARGETJELEMENT.THE_MRT OP.THE.MRT; 
TARGETELEMENT.THE.MCP :«  OP.THE.MCP; 

V_USTSJ®XT(TARGET); 
end  loon; 

endFII^PERIODS; 


procedure  VALIDATE_DATA  (OPJJST :  in  out  V_USTS  USD  is 
TARGET :  VJJSTSUST; 

package  VALJO  is  new  TEXTJOJNTEGER JO(VALUE); 
begin 

TARGET  :-OP_UIST; 

while  V_USTS  J«)N.^MPTYCrARGED  loop 

-  ensiae  that  there  is  no  qperator  without  an  MET. 

ifV_USTS.VALUE(TARGEr).THE  MET -Often 
Eaception.qperator :«  V.USTS.VALUEO’ARGED.'niE.OPERATOR.ID; 
raise  CRTT.CHLLACKS.MET; 
end  if; 

if  VJLISTS.  VALUE(TARGED  THE.PERIOD  -  0  then 

-  Check  to  ensure  that  MCP  has  a  value  for  sporadic  operators 

if  VJLISTS. VALUECTARGEn-TIffirMCP  »  0  then 
Excq)tion_OpeiBtor V_LISTS.VALU^ARGED.THE  OPERATOR  ID; 
raise  SPO^IC.OP^CKS  MCP; 
elsifV_USTS.VALUE(TARGED  THE  MET> 

V JJSTS.VALUE(TARGED.THE_MCP  then 

ExcqNion.Opeiatar V_LISTS.VALU^ARGED-THE  OPERATOR  ID; 
niae  SlCP_LESS_THAN_MET; 
end  if; 

••  Check  to  ensure  that  MRT  has  a  value  for  sniadic  cmrators 
ifVJJSTS.VALUECTARGED’nffi  MRT -Often 
Exoeption.Opeiator :-  VJ.ISTS.V^UE(TARGED.THE  OPERATOR  ID; 
raise  SPORADIC_OP_LACKS  MRT; 
end  if; 

-  Check  to  ensue  ftat  fte  MRT  is  greater  than  the  MET. 
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if  V_LISTS.VALUE(TARGED.THE_MET  >  V_LISTS.VALUE(TARGET).TEffi_MRT  then 
Excq)ti<»_Operator :»  V_LISTS.VALUE(TARGET).THE  OPERATOR  ID; 
laise  MET_NOT_LESS_THAN_MRT; 
end  if, 

~  Guafantees  that  an  operator  can  fire  at  least  once 

~  before  a  remonse  enwcted. 

if  VJLI^.VALi5E(TARGET).THE_MCP  >  V_USTS.VALUE(TARGET).THE_MRT  then 
Exception_Opefator  :a  V_LISTS.VALUE(TARGET).THE  OffiRATOR  ID; 
raise  MCP_NOT_LESS_THAN_MRT; 
end  if; 

else 

~  Qieck  to  ensure  that  the  PERIOD  is  greater  than  the  MET. 

ifV  USTS.VALUE(TARGET).THE  MET  >  V_LISTS.VALUE(TARGET).THE_PERIOD  then 
Excqption.Operator  :■  V_LISTS.VALUE(TARGET).THE_OPERATOR  ID; 
raisel^_NOT_LESS_THAN_PERIOD; 

end  if; 

Check  to  ensure  that  the  FINISH.WTTHIN  is  grater  than  the  MET. 

if  V_USTS.VALUE(TARGET).THE_WITHIN  0  then 

if  V_USTS.VALUE(TARGET).THE_MET  >  V_LISTS.VALUE(TARGET).THE_WITHIN  then 
ExceptioiL.Operatar  :*  V_LISTS.VALUE(TARGET).THE_OPERATOR_ID; 
raise  MET JS  GREATER_THAN_FINISH_WITHIN; 
elaifV  LISTS. VALUE(TARGED.™e_PERIOD< 
VJLISTS.VALIJE(TARGET).THE_WITHIN  then 
Exceptkm.Opetalor :«  V_LISTS.VALUE(TARGET).THE_OPERATOR_ID; 
laiae  PERIODJLESS_THAN_FINISH_WITHIN; 
end  if; 

end  if; 

end  if 

V_USTSJ4EXTCrAROED; 

endlo(»; 

end  VALIDATE_DATA; 


end  PROCESSOR; 
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APPENDIX  D.  NEW  PACKAGES 

withTEXTJO; 
with  DATA;  nse  DATA; 


-*  This  package  coniaiiis  the  qiecificadoos  for  a  grajrfi  data  stmctoie  that  can 
rroiesent  an  acyclto  graph,  jpunctioas  and  pRxi«h^  exist  to  access  the 
-*  infonnation  that  is  stored  in  die  grqih  as  as  to  find  out  the  reladonsh^ 
between  vertices  in  the  gn|di. 

generic 

package  NEW_D ATA.STRUCTURES  is 
type  GRAPH  (SIS :  INTEGER)  is  timited  private; 
type  GRAPH_UNK  is  access  GRAPH; 

THE_GRAPH  :  GRAPHJJNK; 


procedure  PRODUCE_OP.ARRAY  (INFO_UST :  in  out  VJJSTSXIST; 

COUNT  :  in  INTEGER); 

-*  Tkansfer  operator  info  frain  linked  list  to  anay 

fiinctiooOPJ>OSrnON(QPJ4AME  :  in  VARSIRING.VSIRING; 

COUNT  ;  in  INTEGER)  return  INTEGER; 

Given  an  operator  name  return  the  operator’s  position  in  the  array 

procedure  PRODUCE.OP.MATRK  (COUNT;  in  INTEGER); 

Create  a  Matrix  to  rqaeaent  the  acydic  graph  (tf  operttor  relationship 

function  OP JtETURN  (OPJOSITION:  in  INTEGER)  return  OPERATOR; 

-*  Given  an  operator’s  position  in  the  array,  return  the  operator 

functioo  IS J>ARENT  (CX» J  :  in  INTEC^; 

(^_2  ;  in  INTEGER)  return  BOOLEAN; 

Return  true  if  C^_l  is  a  parent  (rf(9_2  or  if  isOT_2 

functioo  IS.CHILD  (CE*_1  :  in  INTEGER; 

OP_2  :  in  INTEGER)  return  BOOLEAN; 

-*  Return  true  if  (^_1  isachildof  CX*_2ar  ifOP_l  isOP_2 

procedure  RETURN_PARENT_LIST  (PARENTJJST  :  in  out  NOI£_USTUST; 

OP  :  in  INTEGER; 

COUNT  :  in  out  INTEGER); 

Return  a  hat  of  an  the  parents  of  an  operator 

procedure  RETURNJCHILD.JJST  ^3flLD_LIST  :  inootNODE_liSTUST; 

:  in  INTEGER; 

COUNT  :  in  out  INTEGER); 

-*  Return  a  list  of  aO  the  childroi  of  an  operator 

procedure  FREE.GRAPH  (A_GRAFH:  in  out  GRAPHJJNK); 

Free  the  memory  qiace  used  by  the  graph 
private 

Qrpe  INPO.ARRAY  is  array  (INTEGER  range  o)  OPERATOR; 
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type  MATRIX_OP_INFO  is 
leconi 

PARENT  :  INTEGER  :»-l; 

CHILD  :  INTEGER  :« -1; 
endieoofd; 

Qrpc  MATRIX  is  anay  (INTEGER  fange  oJNTEGER  range  o)  of  MATRIX_OP_INFO; 

type  GRAPH  (SIZE :  INTEGER)  is 
lecofd 

OP_ARRAY  :  INFO_ARRAY(O..SIZE); 

OP_MATRIX  :  MATRIX(0.^1ZE,  0..SIZE); 

endiecocd; 


end  NEW_DATA_STRUCTURES; 
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with  UNCHECKED.DEALLOCATION; 
package  body  NEW_DATA_STRUCTURES  is 
pragma  LlNK.WrTH  Cbe^lib.q»rc.ar**): 

proceduie  FREE  is  new  UNCHECKED_DEALL(X::aTION(GRAPH.  GRAPH_LINK); 

pacl^e  int_io  is  new  TEXTJO  jntBger_io(integer);~put  in  fra  debugging 
use  im_io; 

procedure  PRODUCE.OP  ARRAY  (INFOJ.IST  :  in  out  V_USTS  J-IST; 

COUNT  :  in  INTEGER)  is 

HEAD  :  V_USTSUST INFO_LIST; 

function  MAKE_START_NODE  return  OPERATOR  is 

START.OP  :  OPERATOR; 


START  CM».THE  CMERATORJD :«  VARSTRING.VSTRC*DUMMY  START  NODE”); 
STARTI0P.THE"MET  0; 

START  OP.THE  MRT:«0; 

START.OP.THE  MCP:-0; 

START_OP.THE_WrrHIN 0; 
return  START  OP; 
end  MAKE_START_NODE; 


fra  INDEX  in  reverw  1..00UNT  loop 
THE_GRAPH.OP_ARRAY(INDEX)  :•  VJ-ISTS.VALUEONFO.LIST); 
VJJSTSJNEXTONPOJLIST); 
end  loop; 

THE_GRAPH.C»*_ARRAY(0) :»  MAKE  START.NODE; 

V_USTS  JREE_UST(HEAD);  -•  THIS  UST  IS  NO  LONGER  NEEDED. 

end  PRODUCE_OP_ARRAY; 

function  CM»_POSrnON  (OP.NAME  :  in  VARSTRING.VSTRING; 

COUNT  ;  in  INTEGER)  return  INTEGER  is 

-*  This  function  is  imiriemented  now  as  a  linear  scan.  Its  performance 
can  be  improved  by  using  a  hashing  function.  If  a  hashuig  function 
b  to  be  then  the  procedure  PRODUCE.OP.ARRAY  will  also  have 

to  be  modified  if  hashing  b  to  be  used.  17  July  91 


rra  INDEX  in  1..COUNT 


if  VARSTRINGEQUAL  (OP  NAME, 
THE_GRAPH.C»»_ARRAY(INDEX).THE_OPERATOR_ID)  then 
return  INDEX; 
end  if; 
end  loop; 

return  -1;  -*  Operator  b  external  since  it  b  not  in  the  array. 
endOP.POSmON; 
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:  in  INTEGER)  is 


pioceduie  PRODUCE_OP_MATRIX  (COUNT 

COLUMN. 

ROW. 

PARENT  OP. 

COTLD.OP  :  INTEGER; 

LINK  :  constant  VARSTRING.VSTRING  :=  VARSTRING.VSTRCXINK”); 

procedure  INITIALIZE  (COUNT  :  in  INTEGER; 

OP_MATRIX  :  in  out  MATRIX)  is 


for  ROW  in  O..COUNT  loop 
for  COLUMN  in  O..COUNT  loop 
if  ROWs  COLUMN  then 

THE  GRAPH.OP  MATRIX(ROW.COLUMN).PARENT 
THEIGRAPH.0P_MATRIX(R0W.C0LUMN).CHILD  := 
end  if; 
endlotq); 
end  log); 
end  INITIALIZE; 


:=ROW; 

ROW; 


procedure  INITLALIZE  START_NODE  (COUNT  :  in  INTEGER; 

OP_MATRIX  :  in  out  MATRIX)  is 


begin 

few  INDEX  in  O..COUNT  loop 

if  THE  GRAPH.OP  MATRIX(INDEX.  INDEX)JPARENT  =  INDEX  then 
THE  "GRAPR0P“MATRIX(INDEXJNDEX)J»ARENT  :=  0; 

THE~GRAPH.OP  MATRIX(0 JNDEX).CfflLD  :=  THE.GRAPROP  MATRIX(0.0).CHILD; 
THEIGRAPROP_MATRIX(0.0).CHILD  :=  INDEX; 

THE_GRAPH.OP_MATRIX(0  JNDEX)  PARENT :» INDEX; 
end  if; 
end  log); 

end  INTnALIZE_START_NODE; 


begin  _ 

TEXT  IO.OPEN(AG  OUTEILE.INPUT.’’atoinicjnfo”); 
INrnALIZE(COUNT.THE_GRAPH.OP  MATTUX); 
VARSTRING.GET  LINE  (AG  OUTFUJE.  New_Word); 
while  IKK  TEXT  lOEND  OF  FILE(AG  OUTFILE)loop 
if  VARSTRINGEQUAL  (J^ew  WonU-INK)  Uien  -  keyword  “LINK” 
TEXT_IO.SKIP  LINE(AG_OUTHLE);  -  skip  LINK  name 
VARSTRING,GET_LINE(AG  OUTFUJE.  New.Word); 

PARENT  OP:»OP_POSrnON(New  Word.DATA.OP  COUNT); 
TEXT  lOlSKIP  LINE(AG  OUTFBLE); 

VARSTRING.GET_LINE  (AG  OUTFILE.  New_Word); 

CHILD  OP:-C»»_POSmON(New  Wad.DATA.OP  COUNT); 


~  when  either  starting  node  a  ending  node  of  a  link  is  EXTERNAL. 

-the  link  information  will  not  be  added  to  the  graph.  Assuming 
-  that  all  external  data  coming  in  is  ready  at  start  time. 

if  PARENT.OP/*  -1  and  CHILD  0P/=  -1  then 
THE  GRAPH.OP_MATRIX(PARENT  OP.CHILD  OP).CHILD:= 
THE  GRAPROP_MATRIX(PARENT  OPPARInT  0P).CHILD; 


THE_GRAPH.OP_MATlUX(PARENT_OPj‘ARENT_OP).C3nLD:»  CHILD  OP; 
THE  GRAPROP  MATOKCPARENT  OP,CHILD_OP)PARENT  := 

Tlffi  GRAPROP_MATRK(CHILD  OP.CHILD_OP)PARENT; 
THE_GRAPROP_MATRK(CHILD_OP.CHILD_OP)PARENT  :=  PARENT.OP; 
end  if, 

VARSTRING.GET_LINE  (  AG.OUTFILE,  New.Wwd); 

VARSTTUNGGET.UNE  (  AG.OUTFILE.  New.Wwd);  -  sk^  aU  other  info 
end  if; 
end  loop; 

TEXT.IO.CLOSE  (AG.OUTFILE); 

INITIALIZE  START  NODE(COUNT.  THE_GRAPROP_MATRIX); 
end  PRODUCE_OP_MATRIX; 

function  OP_RETURN  (OPJOSmON:  in  INTEGER)  return  OPERATOR  is 
OP  :  OPERATOR; 

THE_GRAPROP_ARRAY(OP_POSrnON); 
return  OP; 
end  OP^  RETURN; 

function  IS_PARENT  (CK*_1  :  in  INTEGER; 

OP_2  :  in  INTEGER)  return  BOOLEAN  is 

-*  Return  true  if  OP_l  isapatentofOP_2orifOP_l  isOP_2 

PARENT  ;  BOOLEAN false; 

begin 

ffOPJ  »OP_2tlicn 
PARENT  :s  true; 

elsif  THE.GRAPROP.MATRIXCOPJ,  OP_2)PARENT  M  -1  then 
PARENT :» true; 
end  if; 

return  PARENT; 
endIS_PARENT; 

function  ISjCHILD  (OP_l  :  in  INTEGER; 

OP_2  :  in  INTEGER)  return  BOOLEAN  is 

-•  Return  true  if  OP_l  is  a  child  of  OP_2  or  if  OP_l  is  OP_2 

CHILD  :  BOOLEAN false; 


ifOP_l»OP_2then 
CHILD  >  true; 


elsif  THE_GRAPR<»*_MATRIX((»*_2,OP_l).CHILDM-l  *en 
CHILD:*  true; 
endi^ 

return  CHILD; 
end  ISjCHILD; 


IROcedure  RETURN_PARENT_LIST  (PARENT.LIST  :  in  out  NODE_LISTl,IST; 

OP  :  in  INTEGER; 

COUNT  :  in  out  INTEGER)  is 

ROW  .INTEGER:*  OP; 
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begin 

COUNT  :-0; 

while  THE_GRAPaOP_MATRIX(ROW,  OP) PARENT  h  OP  loop 
^^l^^W™_GRAPH.OP_MATRIX(ROW.  OP)PARENT.  PARENT.UST); 

ROW  :=  THE_GRAPr6p_MATRIX(ROW,  0P)PARENT; 
endlocq); 

end  RETURN  PARENT  LIST; 


procedure  RETURN_CHILD  LIST  (CHILD  LIST 

OP  ~ 
COUNT 

COLUMN  ;  INTEGER  OP, 


:  in  out  NODE_USTiIST; 
:  in  INTEGER; 

:  in  out  INTEGER)  is 


COUNT  :=0; 

while  THE_GRAPH.OP_MATRIX(OP,  COLUMN).CHILD  OP  loop 
NODE_UST^gDa™_GRAPH.OP_MATRIX(OP.  COLUMN).CHILD.  CHILD.LIST); 

COLUMN :«  THE_GRAPH.OP_MATRIX(OP,  COLUMN).CHILD; 
end  loop; 

end  RETURN  CHILD_LIST; 


procedure  FREE.GRAPH  ( A^GRAPH:  in  out  GRAPH.UNK)  is 

FREE(A_GRAPH); 
end  FREE.GRAPH; 

end  NEW_DATA_STRUCTURES; 
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withTEXTJO; 

with  DATA;  use  DATA; 

with  NEW_DATA_STRUCTURES; 

package  FRONT_END  is 

procedure  PRODUCE_OP  LIST(INFO  LIST  :  in  out  V  LISTSUST; 

COUNT  :  in  out  INTEGER); 

—*  Extract  the  operas  information  from  the  ATOMIC  JNFO  file 
and  pl^  it  in  a  Indeed  list 


procedure  TEST  DATA  (INPUT.LIST  :  in  V_USTSiIST; 

HARMONIC_BLOCK_LENGTH  :  in  INTEGER); 

Determine  if  the  operators  can  be  feasabily  scheduled  on  a  single 
processor  system. 

padcage  NEW.GRAPH  is  new  NEW_DATA^STRUCTURES; 

Instantiate  the  gi^  data  structure  so  that  it  can  be  accessed  by 
the  rest  of  the  Static  Scheduler. 

NUMBER_OF_OPERATORS :  INTEGER; 

endFRONT^ND; 

package  body  FRONTJEND  is 

procedure  PRODUCE.OPJJST  (INPO_LIST  :  in  out  V_USTSUST; 

COUNT  :  in  out  INTEGER)  is 

-  This  procedure  reads  the  output  file  which  has  the  link  infennation  with 

-  the  Manic  operators  and  depending  ipon  the  keywords  diat  are  declared 
"  as  constants  separates  the  information  m  the  file  and  stores  it  the 

•*  operatra  array  nd  the  link  matrix. 

package  VALUEJO  is  new  TEXTJO JNTEGERJ0(VALUE); 

MET  :  constant  VARSTRING.VSTRING :«  VARSlRING.VSTRrME'r); 
MRT  :  constant  VARSTRING.VSTRING VARSTRING.VSTRCMR’r); 
MCP  :  constant  VARSTRING.VSTRING :«  VARSTRING.VSTRC*MCP^; 
PERIOD  :  constant  VARSTRING.VSTRING :«  VARSTRING.VSTRCTERIOD”); 
WITHIN  :  constant  VARSTRING.VSTRING  :«VARSTRING.VSTRrwrrHIir); 
LINK  -.constant  VARSTRING.VSTRING  :»VARSTRING.VSTRC*LINK"); 
ATOMIC  :  constant  VARSTRING.VSTRING :»  VARSTRING.VSTRCATOMICr); 
EMPTY  :  constant  VARSTRING.VSTRING:«VARSTRING.VSTRCEMPTTr); 


procedure  INnTALIZE.OPERATOR  (OP :  in  out  orcRATOR)  is 
bem 

OP.THE  MET:»0; 

<M».THE_MRT:«0; 

OP.THE  MCP.--0; 

OP.THE_PERIOD  :=  0; 

CWP.THE  WITHIN  >  0; 
end  INITTALIZE.OPERATOR; 
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_ 

ItXTJO.OPEN  (AG  OiniTLE JNPUT."a!oinic jnfo”): 
TEXTJO.CREATE(NON_CRITS.Ol]TPUT."iion_crits"); 

COUNT  :-0; 

VARSTOING.GET_LINE(AG  OUTFILE,  New.Wofd); 
while  not  TEXT  IO£ND_OF_FILE(AG  OUIHLE)  loop 
if  VARSTRING^QUAL  (New  W(xd,UNK)  then  -  ktwwofd  ‘UNK” 
TEXT_IO.SKIP_LINE(AG_OUTFILE);  ~  Skip  over  LINK 
TEXT_IO.SKIP  LlNE(AG_OUTnLE);  -  info  for  now. 
TEXTJO.SKIPJLINE(AG_OUTFIlJE); 

TEXT_IO.SKIP_LINE(AG_OUTFILE); 

VARSTRING.GET  LINE  (  AG.OUTFILE.  New.Word); 
elsif  VARSTRING^QUAL  (New.WonLATOMIC)  then  -  keyword  “ATOMIC” 
VARSTOING.GET_L1NE  (  AG.OUIFILE,  New.Word); 

Cur  OptTHE_OPERATOR_ID:»New_Wofd; 

VARSHUNG.GETJ.INE  (AG.OUTFILE.  New.Woed); 
if(VARSTlUNG£QUAL(New  Wad.  ATOMIQ)  or 
(VARSTRING£QUAL(New  Word.  LINK))  a 
(TEXT  lOiND  OF  FILE(AG_OinFILE))  then 
VARSTOINGPUT_LINE(NON_CRITS.Ciir_OpLTHE_OPERATOR_ID): 
-*  Nba*periodic  Opemtv.  No  need  to  be  statically  scheduled, 
else 

while  V  ARSIRING J40TEQUAL  O^ew.Wofd.  ATOMIC)  and  *•  Loop  to  get 
VARSTRING  KOTEQUAL  (New.Word.  LINK)  and  -  timing  info 
dm  text J0END_0FJTLE(  AG.OUTFILE)  loop  -  operata 

if  VARSIRINGEQUAL  (New.WottLMED  then  -  keyword  “MET” 

VALUE JO.GEr(AG_OUTFILE.Cufieiit_Valne); 
TEXT_IO.SKIPJJNE(AG_OUTFILE); 

Cur_C^THE_MET  :■  Cunett_Valtie; 
elsif  VARST^GEQUAL  (New.Wocd^IRT)  then  ~  keyword  “MRT” 
VALUEJO.GET(AG_OUTFILE.CuiienL.Value); 
TEXT_IO.SKIP_LINE(AG_OUTFnJE); 

Cor_OpLTHE_l^T:s  Cnnent_Value; 
elsif  VARSTRINGEQUAL  (New_Wad>iCP)  then  -  keyword  “MCP" 
VALUEJO.GET(AG_OUTFILE.Cuirent_Valuc); 
TEXT_IO.SKIP_LINE(AG_OUTFILE); 

Cur.OptTHE.MCP CunenL.Valoe ; 
elsif  VARSTRINGEQUAL  (New  Word.FERIOD)  then  —  k^word  “PERIOD” 
VALUE JO.GET(AG_OUTFILE.Cuiient_Value): 
TEXrjO.SKIP_LINE(AG_OUTFILE); 

Our.Oj^THEjreRIOD  :•  CunenLVahie; 
ebif  VARSTRINGEQUAL  (New_Word.WITHIN)  then  ~  keyword  “WITHIN” 
VALUE  IO.OET(AG_OUIFILE.Ciineiit  Value); 
TEXT_IO.SKIP_LINE(AG_OUTFILE); 

Cur_OpLTHE_WrrHIN  :■  Cunent_Vidne; 
endifc 

VARSTRINO.GET_LINE(AG_OUTFILEJ<cw_Word); 
end  loop; 

V_USTS.ADD(Cur_Opt.  INPO_LIST); 

COUNT  >  COUNT +1; 

INlTlALIZE_CH*ERATOR(Cur_Opt); 
end  if; 
end  if; 
endloq>; 

TEXTJo.CLOSE(AG_OUTFILE); 

NUMBER  OF.OPERATORS  :*  COUNT; 
end  PRODUCE  OP  UST; 
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piooeduie  TEST_DATA  (INPUT  LIST  :  in  V  USTSUST; 

HARMONIC_BLOCK_LENGTH  :  in  INTEGER)  is 

procedure  CALC_TOTAL_TIME  (INPUTJLIST  :  in  V  USTSXIST; 

HARMONIC  BLOCK.LENGTH :  in  INTEGER)  is 
V  :  V_USTS  JLIST  :=  INPUT_LIST; 

TIMES  ‘.FLOAT  >0.0; 

OP_TIME  :  FLOAT  >  OJO; 

TOTAL_TIME  :  FLOAT :«  0.0; 

PER  :  OPERATOR; 

BAD_TOTAL_TIME  :  exception; 

function  CALC_NO_OF_PERIODS  (HARMONlC_BLOCK_LENGTH :  in  INTEGER; 

THE_PERIOD  :  in  INTEG^)  retum  FLOAT  is 

begin 

retum  FLOAT(HARMONIC3LOCKJLENGTH)  /  FLOATCTHE  PERIOD); 
end  CALC_NO_OFJPERIODS; 

funetkn  MULTIFLY_BY_MET  (TIMES  :  in  FLOAT; 

THE.MET :  in  VALUE)  retum  FLOAT  is 
begin 

retum  TIMES  •  FLOAT(THE  JdETT; 
end  MULTffLY3Y_MET; 

function  ADD_TO_SUM  (OP.TIME :  in  FLO  ATT  letum  FLOAT  is 
begin 

retum  TOTAL.TIME -f  OP  TIME: 
endADD_TO_SUM; 

begin  -main  CALC  TOTAL  TIME 
while  VJLISTSJ»IW  EMI^(V)loop 
PER  >  VJLISTS.VaLUE(V); 

TIMES:-  CALC_NO_OFJPERIODS  (HARMONIC.BLOCK.LENGTH ,  PER.THE  PERIOD); 
OP_TIME:«MULTIPLY_BY_MEroiBffiS.VJLISTS.VALUE(V).THE  MET);  ■ 
TOTAL.TIME :«  ADD_TO_SUM  «M»  TIME); 
if  TOTAL_TIME  >  FLOAT(HARMOMC  BLOCK_LENGTH)  then 
laise  BAD_T0TAL_T1ME; 
else 

V_HSTSJ^EXT(V); 
end  if; 
end  loop; 

excqNkm 

when  BAD  TOTAL  TTME» 

TEST.VERIFIED FALSE; 

TEXT.IO  J*UTC*T1ie  total  execotkNi  time  of  the  operators  exceeds  *0; 

TEXTJO  J*UT_LIb®C^  HARMONIC .BLOCK JENGnT); 

TEXT  IO.NEW JJNE; 
end  CALC.TOTAL.TTME; 

procedure  CALC_HALF_PERIODS  (INPUTJLIST :  in  V_LISTSiIST)  is 

V :  V_USTSUST  >  INPUT  UST; 

HALF_PERIOD :  FLOAT; 

FAIL_HALF_PERIOD :  exception; 

Ametion  DIVIDEJBUOD_BY_2  (THE.PERIOD :  in  VALUE)  retum  FLOAT  is 
begm 

return  FLOAT(THE JERIOD)  /  2.0; 
eodDIVn^JERIOD  BY_2; 
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begin -main  CALC  HALF  PERIODS; 
whUc  V_USTS  J40N_EMPTY(V)  loop 

HALF_PERIOD  :=  DIVIDE.PERIOD.BY  2(V_LISTS.VALUE(V).THE  PERIOD); 
if  FLOAT(V_LISTS.VALUE(V).THE  MET)  >  HALF  PERIOD  then  " 

ExcqttioiiLOpenttar :»  V_USTS.VALUE(V).THE_6pERATC»_ID; 
raise  FAIL.HALF_PERIOD: 
else 

VJUSTSJffiXT(V); 
end  if; 
endloq); 

exception 

when  FAIL_HALF_PERIOD  -> 

TEST  VERIFIED :»  FALSE; 

TEXTJO JVr  rrhe  MET  of  Operator  “); 

VARSTRING  J*UT  (Excq)tion_Opentor); 

TEXT_IOFljrr_LINE  C  is  greater  than  of  its  period.’^; 

end  CALC_HALF_PERIODS; 

procedure  CALC JIATIOJSUM  (INPUTJJST :  in  VJJSTSLIST)  is 
V  :  V_LISTSJLIST INPUT.UST; 

RATIO  :  FLOAT. 

RAHO.SUM  :  FLOAT  :>  OX); 

THE_MET  :  VALUE; 

THE.PERIOD  :  VALUE; 

RATIOlTOO_BIG  :  excqKion; 

fimctian  DIVIDE_MET_B  YJPERIOD  (THE_MET :  in  VALUE; 

THE.PERIOD :  in  VALUE)  return  FLOAT  is 
begin 

return  FLOAT(THE_MET)  /  FLOAT(THE_PERIOD); 
end  DIVIDE_MET_BY_PERIOD; 

functian  ADD_T0_T1ME  (RATIO :  in  FLOAT)  return  FLOAT  is 
begin 

teium  RATIO_SUM  4-  RATIO; 
endADD.TO.TTME; 

begin -main  CALC.RATTO  SUM 
while  VJJSTSHON  EM^OOloop 
THE_MET:«V_LISTS.VALUE(V).THE  MET; 

THE_PERIOD  >  V_LISTS.VALUE(V).tHE  PERIOD; 

RATIO  :■  DIVIDE_MET_BY_PERI0D(THE“  MET,THE_PERIOD); 

RATIO_SUM  >  ADD.TO  TIME(RATIO);  ~ 

VJJSTSMEXTOO; 
end  low, 

if  RATIO.SUM -0.5  >  0.00000001  then 
raise  RATTO.TOO.BIG; 
end  if; 

excepikm 

when  RATIO  J]OQ_BIG  => 

TEST_VERIFIED  ,•»  FALSE; 

TEXTJOFUT  (The  total  KffiT/PERIOD  ratio  sum  of  (merators  is  “); 

TEXTJO JUT-LIOT  (“greater  than  0.5”); 
end  CALC_RATTO_SUM; 


begin  -main  TEST.DATA 
CALC_TOTAL_TIME(Ib 


CALC_TOTAL_TIME(INPUT_UST,  HARMONIC  BLOCK  LENGTH); 
CALC_HALF_PERIODS(INPUTJLIST);  -  - 
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CALCJlATIO_SUM(INPUT  USD; 
endTEST_DATA; 


endFR(^3ND; 


_*  This  pnriniw  is  a  generic  priority  queue.  It  quires  three  parameters  to  be 
iiKtantintftir  A  type  of  dement  to  be  stored  in  the  priority  queue,  a  value 
-*  to  order  the  queue  by,  ^  a  functian  to  order  the  queue  with. 

generic 

type  ELEMENT.!  is  private; 
type  ELEMENT_2  is  private; 

with  function  ORDEIL.QUEUE  (VALUE.!  :  in  ELEMENT.2; 

VALUE  2:inEIJEMENT  2) return  BOOLEAN; 


package  FRIORTTY.QUEUES  is 
type  NODE; 

type  LINK  is  access  NODE; 

type  NODE  is 

record 

CONTENT  :  ELEMENT.!; 

VALUE  :  ELEMENT.2; 

NEXT  rUNK; 

end  record; 

function  INrnAL12E.PIUCXUTY.QUEUE  return  LINK; 

procedure  INSERT.IN  J»RICMUTY.QUEUE  (HEM  :  in  ELEMENT.!; 

ORDER. VALUE  :  in  ELEMENT.2; 
QUEUE  :inoutLINK); 

function  READ.BEST.FROM.FRIORITY.QUEUE  0^  in  LINK)  return  ELEMENT.!; 
This  fuction  reads  the  head  A  the  queue  without  removing  the  item 

procedure  REMOVE.BEST_EROM-FRIORrrY.QUEUE  (L:  in  out  LINK); 

function  NON3MPTY(L :  in  LINK)  return  BOOLEAN; 

end  FRIORITY.QUEUES; 

with  UNCHECKED.imALLOCATION; 


package  body  FRIORITY.QUEUES  is 

procedure  FREE  is  new  UNCHECKED.DEALLOCATION(NODE,  LINK); 

function  INrnALI2E.FRIORITY.QUEUE  return  LINK  is 

L  :  LINK :«  null; 

begin 
return  L; 

end  INTTIALIZE.PRIORITY.QUEUE; 


procedure  INSERT.INJ*RIORnY.QUEUE  (ITEM:  in  ELEMENT.!; 


ORDER.VALUE 

QUEUE 

FRONT 

PREVIOUS 

T 

OP  INSERTED 
NEW.FRONT 


in  ELEMENT.2; 
in  out  LINK)  is 
LINK:.  QUEUE; 
LINK:.nuU; 

LINK new  NODE; 
BOOLEAN:,  false; 
BOOLEAN:,  true; 
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*’^ONTENT>nEM; 

T.  VALUE ORDER.VALUE; 
while  QUEUE  h  null  loop 

ifORim_QUEUE(ORDER  VALUE.  QUEUE.VALUE}  then 
if  PREVIOUS  M  null  then 
PREVIOUSJffiXT:-T; 
end  if; 

QUEUE; 

OP.INSERTED :» true; 
exit; 
end  if; 

PREVIOUS QUEUE; 

NEW  FRONT:- false; 

QUEUE QUEUE  J^XT; 
end  loop; 

if  not  OP  INSERTED  and  FRONT /-null  then 
PREVIOUSJiEXT:»T; 
end  if; 

ifNEW_FRONTlhen 
QUEUE  :-T; 

QUEUE:- FRONT; 
end  if; 

end  INSERT_IN JWORITY.QUEUE; 

fiinctioo  REAO_BEST_FROM_PRIORnY_QUEUE  CL :  in  LINIQ  return  ELEMENT.l  is 
BEST  :  ELEMENT.!; 

BEST:-L.CONTENT: 
return  BEST; 

end  READ.BEST JFROMJ>RIORITY_QUEUE; 


procedure  REMOVE.BEST_FROMJ>RI(BUTY.QUEUE  (L:  in  out  LINK)  is 
1EMP:L1NK:-L; 
begin 

L:-LJ«IEXT; 

FREE(TEMP); 

end  REMOVE_BEST_FROM_PRI(»nY_QUEUE; 

fiinctioo  NCB^JEMPTY(L :  in  LINK)  return  BOOLEAN  is 

hop 

ifL-nuIIdien 
return  FALSE; 
else 

return  TRUE; 
end  if; 

endNON_EMPTY; 
end  PRIORITY.QUEUES; 
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with  DATA;  use  DATA; 
packege  SCHEDULER  is 

procedure  EARUEST  START(TOP_SORT  :  in  NODE  LIST.LIST; 

AGENDA  :  in  out  SdiEDULE_INPUTS_LISTiIST; 

COUNT  :  in  INTEGER; 

H  B  LENGTH  :  in  INTEGER; 

VAUD.SCHEDULE  :  in  out  BOOLEAN); 

procedure  EARLIEST_DEADLINE<TOP_SORT  :  in  NODE  LIST.UST; 

AGENDA  :  in  out  SCHEDULE  INPUTS  USTUST; 

COUNT  :  in  INTEGER; 

H_B_LENGTH  :  in  INTEGER; 

VAUD.SCHEDULE  ;  in  out  BOOLEAN); 

procedure  EXHAUSTIVE  ENUMERATION  ( TOP.SORT:  in  NODE_LISTJJST; 

AGENDA :  in  out  SCHEDULE_INPUTS_LIST1,IST; 
OP.COUNT  :  in  INTEGER  ; 

H_B_LENGTH  :  in  INTEGER; 
VALID_SCHEDULE  :  in  out  BOOLEAN); 

procedure  CREATE.STATIC  SCHEDULE  (OreRATOR_LIST :  in  NODE  LISTUST; 

THE_SCHEDULE_INPUTS :  in  SCHEDULE"  INPUTS  LISTUST; 
HARMONIC_BLOCK_LENGTH :  in  INTEGER); 

end  SCHEDULER: 
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withTEXTJO, 

with  DATA;  use  DATA; 

with  SEQUENCES; 

wifli  FRONT  END;  use  FRONT_END; 

with  PRIORITY  QUEUES; 

with  DIAGNOSTICS; 

package  body  SCHEDULER  is 

raocedure  EARLIEST_START(TOP_SORT 

AGENDA 
COUNT 
H  B  LENGTH 

valId.schedule 

pacl^e  int_io  is  new  TEXT_IOinteger_k>(integBr); 
use  int_io; 


inNODEJ^ISTUST; 

in  out  SCHEDULE_INPUTS_USTUST; 

in  INTEGER; 

in  INTEGER; 

in  out  BOOLEAN)  is 


package  EST  PRIORITY  QUEUES  is  new  PRIORITY_QUEUES(DATA.SCHEDULE_INPUTS. 

DATAJjOWERS, 


HUORTTY  QUEUE 
REV  AGENDA 
T  SORT 
NEW  NOE£ 

BEST  NODE 
ADDL  NODE 
STOP  TIME 
OP_NUM 
EST 
TEMP 


EST  PRIORITY  QUEUES  UNK  :« 
SCHEDULE  INPUTS  LKTUST; 
NODE  USTXIST:=TOP_SORT; 
SCHEDULE.INPUTS; 

SCHEDULE  INPUTS; 

SCHEDULE  INPUTS; 

INTEGER  :■  0; 

INTEGER; 

INTEGER; 

OPERATOR; 


null; 


VALID  SCHEDULE  :- true; 

NEW  NODETHE_OPERATOR:«0; 

NEW  NODE.THE  LOWER H  B  LENGTH  +  10; 
SCHEDULE_INPUTS_LIST.ADD(I«W_NODE  REV_AGENDA); 

NEW  NODE.THE  LOWER 0; 

NOr®  USTJ®XT(T  SOR'D; 

while  NODE_UST J4dN_EMPTYCr_SOR'D  or 

EST  PRIORrrY_QUEUESJION_EMPTY(PRIORrrY  QUEUE)  loop 
if  NODE  USTJ^ON  EMPTYCT.SORT)  then 
OP  NUM :»  DATANODE_UST.VALUE(T_SOR'D; 

TEMP:- NEW  GRAPHOP  RETURN(OP  NUM); 

NEW_NODETHE_OPERATOR :-  OP.NUM; 
end  if; 

if  EST  PRIORrrY_QUEUESJ^ON_EMPTY(PRIORrrY  QUEUE)  then 
BESTJKX^  5“  EST_PWORrrY_QUBUES.READ_BESrr_FRC»I_IW<»ITY_QUEUE(PRIORrrY_QUEUE); 
end  if; 

if  BEST_NODE.THE_LOWER  <  STOP.TIME  ml  EST_PRI<»mf_QUBUES.NON  EMPTV(I>RIO«rrY  QUEUE)  then 
NEW  NODETHE  OIERATOR BEST_NODE.THE_OPERATOR; 

NEW  NOOT.THE  LOWER  BEST.NODE.THE  LOWER; 

NEW  NOI®.THE  START  :=  STOP.TIME; 

TEMP:-NEW_GR^APH.OP_RETURN(NEW  NODETHE  OPERATOR); 

STCM»  TIME  >  STOP  TIME  +  TEMP.THE  MET; 


NEW  NODE.THE  STOP  :=  STOP_TIME; 

NEWjiODE  .THE  INSTANCE  :=  BEST  NODE.THE_INSTANCE  +  1; 

EST:=NEW  NODE.THE  LOWER  +  TEMP.THE.raRIOD; 
if  EST  +  TEMP.THE  MET  <=  H_B_LENGTH  then 
ADDLJNODE.THE  OPERATOR  NEW_NODE.THE_OPERATOR; 
ADDL_N0DE.THEIL0WER  :»  EST; 

ADDL_NODETHE_INSTANCE :«  NEW_NODE.THE_INSTANCE; 

EaT_PSIOKriYjQUEUESJNSERr JNJFRIORirY_QUEUE(ADDL,J«X)E.  AODLJ4(X)E.TIlE_LOWER.  FRK»mr_Q(IEUE); 

end  if; 

EST  PRIORITY  QUEUES.REMOVE3EST_pROMJ»RIORrrY_QUEUE(MUORnY_QUEUE); 
elsif  libl  NODE_UST  J40N_EMPTY(T_S0RT)  then 
NEW  NODE.THE_OPERATOR  :=  BEST_N0DE.THE_0PERAT0R; 
NEW“N0DE.THE_L0WER  ;*  BEST_NODE.THE_LOWER; 
if  NEW  NODE.THE  LOWER  >  STOP_TIME  then 
NEWInODE.THE_START  :*  NEW_NODE.THE_LOWER; 
else 

NEW_NODE.THE_START  :=  STOP.TIME; 
end  if; 

TEMP :«  NEW  GRAPH.OP  RETURN(NEW_NODE.THE_OPERATOR): 
STOP_TIME:»NEW  NODE.THE_START  +  lEMP.THE.MET; 

NEW  NODE.THE_STOP:«STOP_TIME; 

NEW~NODE  .THE  INSTANCE BEST  NODE.THE_INSTANCE  + 1; 

EST :«  NEW  NODi.THE  LOWER  +  TEMP.THE.PERIOD; 
ifEST  +  TEKff.THE  METo-H  BJLENGTHihen 
ADDL  NODE.TIffi  OPERATOR  >  NEW  NODE.THE_OPERATOR; 
ADDL~NODE.THEIlOWER  :»  EST; 

ADDCN0DE.THEJNSTANCE  ;«  NEW_NODE.THE_INSTANCE; 

BSr..HaOUrY_QUEtlESJNSEirr JN^OiUTY_QUEUE(ADIXJ<ODE.  ADDL_HOOE.TIiE JXWEIt.  PSIORTTY.QUEUE); 

end  if; 

EST_PRKMUTY_QUEUES.REMOVE_BEST_PROMJ»RI£MUTY_QUEUE(PRI(»nY_QUEUE); 
else-*  Scheduling  Initial  Set Operators 
NEW  NODE.TiHE  START:* STOP  TIME; 

TEN#:- NEW  GRAPH.OP_RETURN(NEW_NODETHE_OPERATOR); 

STOP  TIME STOP.TIME  +  TEMP.THE.MET; 

NEW~NODE.THE_STOP  >  STOP.TIME; 

NEW  NODE.THE_INSTANCE :« 1; 

EST :«  NEW_NODE.THE_START  +  TEMP.THE.PERIOD; 

if  BST  i-  TEMP.THE JkfET  H_P J.ENG1H  or  dw  NEWJfOD&'IllB.START  »  TBMP.IHE.FERIOD  then 
ADM-  NOM,raE_OPERATC«.--NEW_hK)Iffi.THE_OPERATOR; 

ADDL  NODETHE_LOWER:«EST; 

ADDLInODE.THE_INSTANCE  >  1; 

Bn.PiaoniY_<p]EUBS  JKSBICr JN_nuaiinY_QUEUE(AIXX,J)00^  AOa^JIODE.'niE.IjOWEIt.  ntlOitnY_QUEUE); 
end  if; 

NODE_LISTJJEXTCr_SORT); 
end  if; 

ifNEW_NODE.THE  STOP  >  H_B_LENGTH  then 
VALID.SCHEDULE  false; 
end  if; 

SCHEDULE  INPUTS_LIST>^D(NEW_NODE,REV_AGENDA); 

NEW_N0DE,THE_L0WER  :»  0; 
end  loop; 

SCHEDULE  INPUTS.USTJJST  REVERSE(REV  AGENDA,  AGENDA); 
SCHEDULE"INPUTS  USTJREE  LIST(REV  AGENDA); 
end  EARLIEST  START; 


procedure  EARLIEST  DEADLINE(TOP  SORT  :  in  NODE.LISTUST; 

AGENDA  :  in  out  SCHEDULE  INPUTS.USTilST; 

COUNT  :  in  INTEGER; 

H_B  LENGTH  :  in  INTEGER; 

VALID  SCHEDULE:  in  out  BOOLEAN)  is 
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pacla«e  int_io  is  new  TEXTJO  jnteger_io(integer); 
use  tnUo; 

nackageEDL  PRIORITY  QUEUES  is  new  PRIORrrY_QUEUES(DATA.SCHEDULE_INPUTS, 
“  ■  DATA.UPPERS. 

“O; 


PRIORITY  QUEUE 

REV  AGENDA 

T  SORT 

f®W_NODE 

BEST.NODE 

ADDL.NODE 

STOP.TIME 

OP  NUM 

ESf 

TEMP 


EDL.PRIORTTY.QUEUESUNK  :=  nuU; 
SCHEDULE  INPUTS_LISTiIST; 

NODE  USTJJST:=TOP_SORT; 
SCHEDULE  INPUTS; 

SCHEDULE  INPUTS; 

SCHEDULE  INPUTS; 

INTEGER  :=0; 

INTEGER; 

INTEGER; 

OPERATOR; 


begin 

VAJ  JD.SCHEDULE :» inie; 

NEW  NODE.THE  OPERATOR  :«0; 

NEW  NODE.THE  LOWER ;«  H_B_LENGTH  + 10; 

SCH^ULE JNPinS  JLISTADD0®WJ4ODE.  REV_AGENDA); 

NEW J^ODE.THE  Lower  0; 

NODE_LISTJffiXlTr_SORT); 

while  NODE_lJSTJ<ON_PMPTY(T  SORT)  or  EDLJPRK»nY_QUHUBSJiON_EMPTy(PRIORnY_QUEUE)  loop 

if  NODE  USTJ^  EMPtYCr_SORT)flicn 
OP  NUM  >  DATA1^0DE  LIST.VALUE(T_SORT); 

TEMP :»  NEW  GRAPH.OP  RETURN(OP_NUM); 

NEW_NODE.TTIE_OPERATOR <M»_NUM; 
end  if; 

if  EDL.PRI0R1TY_QUEUES  J*ION_EMPTY(PRIORITY_QUEUE)  then 
BBSTJiODE  :■  BDl^I1UORrnr_QUEUBSJlEADJIESTJ=ROM_PRIORrrY_QlJBUE(PiUORrry  OUEUB); 
end  if; 

if  BEST  JIODE -THE  UJWER  <  STOP_TIMB  nd  BDL^BtK)RITV_QUBimS.NONJBMrnr(PlUMUTY_QUEUE)  Uien 
NEW .NODRTOE.OPERATOR  :■  BEST_NODE.THE_OPERATOR; 

NEW_NOM.THE  LOWER BEST_NODE.THE JX)WER; 

NEW  NODE.THE  UPPER BEST  NODE.THE_UPPER; 

NEW  NODE.THE  START ;»  STOP  TIME; 

TEMP  >  NEW  GRAPH.OP  RETURN(NEW  NODE.THE_OPERATOR); 

STOP.UME  :»”ST0P  TIME  +  TEMP.THE  MET; 

NEW  NOra.THE_STC»»:»STCM>_TIME; 

NEW  NODE  .THE  INSTANCE :«  BEST  NODE.THE_INSTANCE  +  1; 

ESTiNEW  NODE.THE  LOWER  +  TEMP.THE_PERIOD; 
ifFST  +  TEh«*.THE  MET  <- H_B_LENGTH  then 
ADDL  NODE.THE  OPERATOR ;«  NEW  NODE.THE  OPERATOR; 

ADDLInODE.THE  LOWER  >  EST; 

ADDL  N0EC.THE_INSTANCE:-NEW_N0DE.THE_INST.\NCE; 
ifTENff.THE  WITHIN /■  U  then 

ADDL_N0DE.THE_UPPER  >  EST  +  TEMP.THE.WTTHIN  -  TEMP.THE_MET; 
else 

ADDL_NODE.THE_UPPER  :«  EST  +  TEMP.THE_PERIOD  -  TEMP.THE.MET; 
end  if; 

BDL.mOSmr.QUEUES  jrOERT JN_naoiaTY_QUEUE(AIX}L_NC»E,  ADDL_NODE.TIlE_UI>I>ER,  nUORITY.C^JEUE): 

end  if, 

H)L  PRIORITY  QUEUES  ilEMOVE.BEST.FROM.PRIORlTY  QUEUE(PRIOilirYJJUEJUEi 
elsif  libt  NODE  LIST.NON_EMPTY(T_SORT)  then 
NEW  NODE.THE_OreRATOR:»BEST  NODE.THE  OPERATOR; 
NEW"N0DE.THE_L0WER  :=  BEST  NODE.THE_LOWER; 

NEW~NODE.THE_UPPER  BEST  1nODE.THE  UPPER; 
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if  NEW_NODE.THE  LOWER  >  STOP  TIME  then 
NEW_NODE.THE_START :®  NEW3fODE.THE_LOWER; 
else 

NEW_NODE.THE_START  :=  STOP_TIME; 
end  if; 

TEMP  :=  NEW_GRAPH.OP_RETURN(NEW_NODE.THE_OPERATOR); 

STOP  TIME  :=  NEW_NODE.THE_START  +  TEMP.THE_MET; 
NEW_NODE.THE_STOP:=STOP  TIME; 

NEW  NODE  .THE.INSTANCE  :=  BEST_NODE.THE  INSTANCE  +  I; 

EST:=NEW  NODE.THE  LOWER  +  TEMP.THE  PERIOD; 
if  EST  +  TEMP.THE.MET  <=  H  B.LENGTH  then 
ADDL  NODE.THE_OPERATOR:=NEW^NODE.THE  OPERATOR; 
ADDL_NODE.THE_LOWER  :=  EST; 

ADDL  NODE.THE_INSTANCE  :=  NEW  NODE.THE  INSTANCE; 
if  TEMP.THE  WITHIN  ^0  then 

ADDL_NODE.THE_UPPER  :»  EST  +  TEMP.THE_WITHIN  -  TEMP.THE_MET; 

ADDL_NODE.THE_UPPER  :=  EST  +  TEMP.THE_PERIOD  -  TEMP.’IHE_MET; 
end  if; 

EIX,^ORrry_QUEUESJNSERT_IN_HUOiirrY_QUEUE<Ar«>LJ«»E.  ADIM._NOI».THE_l]FPER.  PWORITY.QUEUE); 

end  if; 

EDL_PRIORmr_QUEUES.REMOVE_BEST_FROM_PRIORrrY_QUEUE(PRIORITY_QUEUE); 
else  Scheduling  Initial  Set  of  Operators 

NEW  NODE,THE  START  :=  STOP  TIME; 

TEMP :«  NEW  GRAPH.OP  RETURN(NEW,NODETHE  OPERATOR); 

STOP  TIME :«  STOP.TIME  +  TEMP,THE_MET; 

NEW  NODE.THE  STOP  :=  STOP  TIME; 

NEWInODRTHE  instance  :=T; 

EST :«  NEW_NODE.THE_START  +  TEMP.THE_PERIOD; 

ifEST+TEMP.THE_MET<=H_B  LENGTH  or  die  NEW_NODETHE  START  >=  TEMP.THE  PERIOD  then 
ADDL_NODE.THE_OPERATOR  :=  NEW  NODE.THE  OPERATOR; 
ADDL_NODE.THE_LOWER  :=EST; 

ADDL  NODE.THE  INSTANCE 1; 
if  TEMP.THE.WTTHIN  A*  0  then 

ADDL_NODE.THE_UPPER  EST  +  TEMP.THE.WITHIN .  TEMP.THE_MET; 
else 

ADDL_NODE.THE_UPPER  :=  EST  +  TEMP.THE.PERIOD  -  TEMP.THE_MET; 
end  if; 

EDL JWORinr.QUEUES  JNSEiCr_IN J>IUOiUTY_QUEUE(ADIX.J40DE.  ADI».J«X«.THE_U1>PER,  PRIOWTY.QUEUE); 

end  if; 

NODE_UST.NEXT(T_SORT); 
end  if; 

if  NEW_NODE.THE  STOP  >  H_B_LENGTH  then 
VALID.SCHEDULE  :*  false; 
end  if; 

SCHEDULE_INPUTS_USTj\DD(NEW  N0DE.REV_AGENDA); 

NEW_NODE.THE  LOWER :«  0; 

NEW_N0DE.THE_UR>ER  0; 
end  loop; 

SCHEDULE_INPUTS_LISTX,IST  REVERSE(REV  agenda,  AGENDA); 

SCHEDULE.INPUTS  LISTJREE  LIST(REV  AGENDA); 
end  EARUEST.DEADUNE; 

procedure  EXHAUSTIVE_ENUMERATION  ( TOP_SORT  :  in  NODE.LISTJJST; 

AGENDA  :  in  out  SCHEDULE_INPUTS_LISTiIST; 
OP  COUNT  :  in  INTEGER; 

H_B_LENGTH  :  in  INTEGER; 

VALID.SCHEDULE:  in  out  BOOLEAN)  is 

package  int_io  is  new  TEXT_IO.integer_io(intcgcr); 
use  int_io; 
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TEMP  :  SCHEDULE  INPUTS.LBTUST; 

COUNT  :  INTEGER  :=0; 


procedure  TOP  SORTS  (AGENDA  :  in  out  SCHEDULE  INPUTS_USTUST; 

COUNT  :  in  INTEGER; 

VALID  SCHEDULE  :  in  out  BOOLEAN; 

BLOCK  LENGTH  :  in  INTEGER)  is 


type  VECTOR  is  array  (1..COUNT)  of  INTEGER; 

LOC  ■  VECTOR* 

type  SCHEDULE  ARRAY  is  array  (i..COUNT)  of  SCHEDULE_INPUTS; 
P  ARRAY  :  SCHEDULE_ARRAY; 

t^  TTME_RECORD  is 


record 

OPERATOR 
TIME  1 
TIME  2 


INTEGER 

INTEGER 

INTEGER 


end  record; 

ftrpe  TTME_ARRAY  is  array  (L.OP_COUNT+l)  of  TIME_RECORD; 


START_TIME_ARRAY 


TIME_ARRAY; 


HCaj> 

TEMP 

INI^ 

INIffiX  1 
NODE.l 
NODE  2 
MET 

POSITION 

STOPJTIME 

HOLD_STX)P_TIME 

START_TIME 

i 

INITIAL  START.TIME 
LOWER  BOUND 
ADJUSTED 


SCHEDULE_INPUTS; 

SCHEDULE_INPUTS_LISTiIST  :*  AGENDA; 
INTEGER  :=  1; 

INTEGER  rs  1; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER: 

INTEGER; 

INTEGER  .*«  COUNT; 

INTEGER; 

INTEGER; 

BOOLEAN  :s  false; 


SCHEDULE  INPUTS  LIST J<ON^EMPTY(TEMP)  loop 
P  ARRAY(INDEX) ;«  SCHEDULE  INPUTS  UST.VALUE(TEM]^; 

LOC(INDEX) :« INDEX; 

INDEX:- INDEX -t-l; 

ifSCHEDULE_INPUTS_LIST.VALUE(TEMP).THE_INSTANCE=  1  then 
START.TIME JUWAY(INDEX.lXOI>eRATOR.--  SCHEDin^JhnvrS.LlST.VALUEaBMPX'niE.OPERATCXt; 
START_TIMB_ARRAYaNDBXJ).‘nME_l:-  SCHBDULBJNPUTS.IJST.VALUBCrEMIO.'raE.START: 
STARTjnMEJ^WUY(INDEX_l>TlMBJfc»  SCHEDUliJNPim_lJST.VAUmrraMP).TH^.STOP; 
INDEX.l :» INDEX_1+1: 
end  if; 

SCHEDULE_INPUTS_USTJ>iEXT(TEMP); 
end  loop; 
while  i  >  1  loop 

NODE^l  :»P  ARRAY(LOC(i)).THE  OPERATOR; 

NODE_2:«P  ARRAYfLOCCiJ-U.TTffi.OPERATOR; 
if  not  FRCWT..END  JIEW_GRAPRIS_PARENT(NODE_2.  NODE  1)  then 
HOLD  :*  P_ARRAY(LOC(i)); 
if  i>2then 

STXM»_TIME  :*  P_ARRAY(LOC(i>l).THE_START; 
else 

STOP_TIME;«0; 
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end  if; 

P_ARRAY(LOC(i)) :»  P_ARRAY(LX>C(i)-l); 

P_ARRAY(LOC(i)-l)  :=  HOLD; 

STOP_TIME:=0; 
fw  i  in  1..C013NT  loop 
if  P_ARRAY(i).THE_INSTANCE  =  1  then 
fotj  in  1..0P_CX)UNT+1  Uxm) 

if  P  ARRAY(i).THE_OPERATOR  =  START_TIME_ARRAY0).OPERATOR  then 
MET  :=  START  TIME_ARRAY(j).'nME_2  -  START  TIME  ARRAYa).TIME  1; 
P  ARRAY(i).THE  START  ;=  STOP.TIME; 

START  TIME  ARRAY0).TIME_1  :=  STOP  TIME; 

STOP  ilME  :=  STOP  TIME  +  MET; 

START  TIME_ARRAYO).TIME  2  STOP_TIME; 

P_ARRAY(i).THE_STOP  :=  STOP_TIME; 
exit; 
end  if; 
end  loop; 
else 

for  I  in  1..0P  COUNT+l  loop 

ifP  ARRAY(i).THE  OP^TOR  *  START.TIME  ARRAYO-OPERATOR  then 
INmAL_START_TIME :«  START_TIME_ARRAY0).TIME_1; 
exit; 
end  if; 
end  loop: 

LOWER  BOUND:- INITIAL  START.UME  +  ((P_ARRAY(i).THE_INSTANCE-l) * 
NEW  GRAPH.OP  RETURN(P  ARRAY(i).THE_OPERATOR).THE_PERIOD); 
if  LOV^.BOUND  >  STOP  TIME  then 
START_TIME :«  LOWER.BOUND; 
else 

START_nME  :=  STOP.TIME; 
end  if; 

MET:-P_ARRAY(i).THE  STOP-P  ARRAY(i).THE_START; 
P_ARRAY(i).THE_START START.TIME; 

STOP  TIME START.TIME  +  MET; 

P_ARRAY(i).THE_STOP:-STOP  TIME; 

P_ARRAY(i).THE_LOWER  :=  LOWER.BOUND; 
end  if; 
end  loop: 

if  PJUlRAY(COUNT).THE_STOP  <=  BLOCRJ^GTH  then 
VALID_SCHEDULE  :=  true; 
exit; 
end  if; 

LOC(i):-LOC(i>l; 

i:»CX)UNT; 

else 

ifLOC(i)/-ithen 
HOLD P_ARRAY(LOC(i)); 
for  j  in  LOC(i)  ..i-1  loc^ 

P.ARRAYO) :«  P_ARRAY(i+l); 
end  loop; 

P  ARRAY(0;-HOLD; 

LOC(i):-i; 

STOP_TIME:»0; 
for  i  in  1..COUNT  lo(q> 
if  P_ARRAY(i).THE_INSTANCE  »  1  then 
for  j  in  1..0P_CX)UNT+1  loop 

if  P_ARRAY(i).THE_OPERATOR  =  START  TIME  ARRAY(j).OPERATOR  then 
MET START_TIME_ARRAY(j).TIME_2  -  ST/OlT  TIME  ARRAY(j).TIME  1; 
P_ARRAY(i).THE  START  :=  STOP.UME;  ~ 

START_TIME_ARRAY(j).TIME  1  :«STOP  TIME; 

STOP.TIME  :=  STOP  TIME  +  NffiT; 
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START_TIME_ARRAYa).TIME_2  :=  STOP_TIME: 

P_ARRAY(i).THE_STOP  :=  STOP.TIME; 
exit; 
end  if; 
end  loop; 
else 

for  1  in  1..0P  COUNT-i-1  loop 

if  P_ARRAY(i).THE_OPERATOR  »  START.TIME  ARRAYa).OPERATOR  then 
INrnAL_START_TIME  :=  START_TIME_ARRAYa).TIME_l; 
exit; 
end  if; 
end  loop; 

LOWER  BOUND  :*=  INITIAL.START.TIME  +  ((P_ARRAY(i).THE  INSTANCE-1)  • 
NEW  G^ROP  RETURN(P  ARRAY(i).THE_OPERATOR).THE_PERIOD); 
if  LO^^  B0U1€)  >  STOP  miE  then 
START.TIME  :=  LOWER.BOUND; 
else 

START.TIME  :=  STOP.TIME; 
end  if; 

MET>:P_ARRAY(i).THE  STOP  -  P_ARRAY(i).THE  START; 

P  ARRAY(i).THE  START :»  STARTJITME; 

STOP  TIME START.TIME  +  MET; 

P  ARRAY(i).THE  STOP  :=  STOP.TIME; 

P_ARRAY(i).THE_LOWER  :*  LOWER.BOUND; 
end  if; 
end  loop; 
end  if; 
i:«i-l; 
end  if; 
endloq); 

SCHEDULE_INPUTS_USTJKEE_LIST(AGENDA); 
for  1  in  reverse  1..COUNT  loop 

SCHEDULE_INPUTS JJSTJ^D(P_ARRAYO).  AGENDA); 
end  loop; 
endTOP_SORTS; 


begin 

EARUEST.STARTCTOP  SORT>^GENDA,OP  COUNT JI_B  LENGTH,  VALID_SCHEDULE); 
TEMP  >  AGENDA; 

whUe  SCHEDULE  INPUTS  LISTJ^ON_EMPTY(TEMP)  loop 
COUNT :»  COUNT  +  1; 

SCHEDULE_INPUTS_USTJ*4EXT(TEMP); 
end  loop; 

TOP_SORTS(AGENDA,  COUNT,  VALID  SCHEDULE4I_B  LENGTH); 
end  EXHAUSTIVE  ENUMERATION; 


procedure  CREATE_STATIC_SCHEDULE  (OPERATOR_LIST  :  in  NODE_LISTl,IST; 

THE_SCHEDULE_INPUTS :  in  SCHEDULE_INPUTS_USTI,IST; 
HARMONIC_BLOCK_LENGTH :  in  INTEGER)  is 
~  creates  the  static  schedule  ouq>ut  and  prints  to  ‘'ss^t”  Hie. 

CM»_LIST  ;  NODE  USTUST  ;=  OPERATOR  UST; 

S  :  SCHEDU1JE_INPUTS_LIST1,IST :«  THE  SCHEDULE_INPUTS; 

SCHEDULE  :  TEXT_IO.FILE_TYPE; 

OUTPUT  :  TEXT  IO.FILE_MODE  :=  TEXT  IO.OUT_FILE; 

COUNTER  :  INTEGER  :*  1; 

TEMPVAR  :  OPERATOR.ID; 

package  VALUEJO  is  new  TEXTJO.INTEGER_IO(VALUE); 
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use  VALUE  I0‘ 

pacl^e  F_IO  is  new  TEXTJO JLOAT_IO(FLOAT); 
package  INTEGERIO  is  new  TEXT_IO.INT^ER_IO(INTEGER); 
use  INTEGERIO; 

begin 

TEXT_IO.CREATE(SCHEDULE.  OUTPUT,  “ss.a”); 

TEXTJOFUT  UNEISCHEDULE.  “with  GLOBAL.DECLARATIONS:  use  GLOBAL_DECLARATIONS:”); 
TEXT  IOPUT_LINE(SCHEDULE,“withDS  DEBUG  PKG;useDS  DEBUG_PKG;”); 

TEXT“ I0PUT_LINE(SCHEDULE,  “with  TL;  use  TL;”); 

TEXT" lOPUT  LINE(SCHEDULE.“withDS  PACKAGE;  use  DS  PACKAGE;”); 
TEXTIiOPUT^SCHEDULE,  “with  HWORTTY.DEFINmONS;  “); 

TEXT  lOPUT  LINE  (SCHEDULE,  “use  PRIORITY_DEFlNrnONS;”); 
TEXT~IOPUTIlINE(SCHEDULE.  “with  CALENDAR;  use  CALENDAR;”); 
TEXTIiOPUT_LINE(SCHEDULE.  “with  TEXTJO;  use  TEXTJO;”); 
TEXT_IOPUT_LINE(SCHEDULE.  “procedure  STATIC.SCHEDULE  is”); 

NODE_LISTJffiXT(OP  LIST);  Bypass  dummy  start  node 
while  NODE  UST >rON_EMPTY(OP_UST)  loop 
TEXT_IO.SET_COL(SCHEDULE.  3); 

VARSTRING.PUT(SCHEDULE.  NEW  <aiAPH.OP_RETURN(NODE_LIST.VALUE(OP_UST)).THE_OPERATOR JD); 
TEXT  IOPUT_LINE(SCHEDULE.“_TIMING_ERROR:excq)tion;”); 
N0DE1USTJ«IEXT(0P_LIST); 
end  loop; 

TEXTJ0.SET_C0L(SCHEDULE.  3); 

TEXT  lOPUT  LINE(SCHEDULE,  “task  type  SCHEDULE_TYPE  is”); 
text" I0.SET~C0L(SCHEDULE.  5); 

TCXT'IOPUT  LINE(SCHEDULE,“iwttgmapriOTity  (STATIC  SCHEDULE  PRIORITY);”); 
textIio.set  COUSCHEDULE,  3); 

TEXT  lOPUT  LINE(SCHEDULE.“endSCHEDULE_TYPE;”); 

TEXTZiO.SET  C0L(SCHEDULE.3); 

TEXTJOPUT_LINE(SCHEDULE.  “for  SCHEDULE  TYPE’STORAGE  SIZE  use  200  000;”); 
TEXT_I0.SET_C0L(SCHEDULE.  3); 

TEXTJOPUT_LINE(SCHEDULE,  “SCHEDULE :  SCHEDULE.TYPE;”); 
TEXTJ0J4EW_LINE(SCHEDULE); 

TEXTJO.SET_COL(SCHEDULE.  3); 

TEXTJOPUT  LINE(SCHEDULE.  “task  body  SCHEDULE  TYPE  is”); 

TEXT  IOPUT(SCHEDULE,  “  PERIOD :  duration  :*  durationC*); 
FJO.PUT(SCHEDULE.FLOAT(HARMONIC  BLOCK  LENGTH)/I000.0); 

TEXT  IOPUT_LINE(SCHEDULE.  “);”); 

S  :=THE_SCHEDULE_INPUTS; 

SCHEDULE_INPUTS_LISTPJEXT(S);  — *  Bypass  dummy  start  node, 
while  SCHEDULE  INPUTS_LISTJ^ON  EMPTY(S)  loop 
TEXT_IO.SET  COUSCHEDULE,  5); 

VARSTRINGPUT(SCHEDULE. 

FRONT_ENDJ^W_GRAPROP_RETURN(SCHEDULE  INPUTS  LIST.VALUE(S).THE  OPERATO 
R).THE_OPERATOR  ID);  "  " 

TEXT_IOPUT(SCHEDULE.“_STOP  TIME”); 

INTEGERIOPUT(SCHEDULE.  COUNTER.I); 

TEXT  IOPUT(SCHEDULE,  “ :  duration duration(“); 

F_IOPUT(SCHEDULEpLOAT(SCHEDULE  INPUTS_UST.VALUE(S).THE  STOP)/1000.0); 
TEXT  IOPUT_LINE(SCHEDULE,  “);”); 

SCHEDULE_INPUTS_LISTJ4EXT(S); 

COUNTER  :=  COUNTER  +  1; 
end  loop; 

TEXT_IO.SET_COL(SCHEDUL£,  5); 

TEXT_IOPUT_LINE(SCHEDULE.  "SLACK  TIME ;  duration;”); 

TEXT  IO.SET_COL(SCHEDULE,  5); 

TEXT_IOPUT_LINE(SCHEDULE.  “START  OF  PERIOD :  time  :=  clock;”); 
TEXT_IO.SET_COL(SCHEDULE.  5); 

TEXT_IOPUT_LINE(S(OffiDULE.  “CURRENT  TIME :  duration;”); 
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TEXT  lOPUT  LINE(SCHEDULE,  “begin"); 

TEXT“lOJ»UT_LINE(SCHEDULE.  “  loop”): 

TEXT" IO^ET_COL(SCHEDULE.5); 

TEXTJOJ>UT(SCHEDULE,  “begin"); 

S THE_SCHEDULE_INPUTS; 

SCHEDULE_INPUTS_LISTJffiXT(S);  -*  Bypass  dummy  start  node. 

COUNTER  :■  1; 

while  SCHEDULE  INPUTS  LISTJ^ON_EMPTY(S)  lot^ 

TEXTJO.SET  COL(SCHEDULE.7); 

VARSTRINGJ*UT(SCHEDULE. 

FRONT_ENDJ^EW  GRAPROP  RETURN(SCHEDULE_INPUTS_LIST.VALUE(S).THE_OPERATO 
R).THE  OPERATOR_ID); 

TEXT  IOJ»UT_LINE(SCHEDULE.  “.DRIVER;”); 

TEXT_IO.SET  COUSCHEDULE.  7); 

TEXT  I0J*UT(SCHEDU1JE,  “SLACK  TIME :»  START_OF_PERIOD  +  “); 
VARSrRINGJ»UT(SCHEDULE. 

FRONT3NDJ^EW_GRAPH.OP  RErURN(SCHEDULE_INPUTS_LIST.VALUE(S).THE_OPERATO 
R).THE_OPERATOR  ID); 

TEXTJO  J»UT(SCHEDULE.  “.STOP.TTME”); 

INTEGERIOPUT(SCHEDULE.  COUNTER.1); 

TEXTJO  PUT JJNE(SCHEDULE,  “  -  CLOCK;"); 

TEXTJO.SET_COL(SCHEDULE,  7); 

TEXT  lOPUT  LINE(SCHEDULE.“ifSLACK.TTME>«O.Othen”); 
TEXTJO.SETIcOL(SCHEDULE.  9); 

TEXTJOPUT JJNE(SCHEDULE.  “delay  (SLACK_TIME);"): 
TEXTJO.SET_COL(SCHEDULE.  7): 

TEXT  lOPUT  LINE(SCHEDULE.“elae”): 

TEXTJO.SET  COi3cHEDULE,9); 

TEXTJO  J»UT(SCHEDULE.  ‘^aiae  “); 

VARSTRINGJ>UT(SCHEDULE. 

FRONTJENDJiEW  GRAPH.OPJlETURN(SCHEDULE_INPUTS_UST.VALUE(S).THE_OPERATO 
R).THE  OPERATOR.®); 

TEXTJO.PUT_LINE(SCHEDULE,  “.TIMINGJERROR;”); 

TEXTJO,SET_COLgaiEDULE.  7); 

TEXTJOPUT JJNE(SCHEDULE.  “end  if;"); 

TEMPVAR:- 

PR<»fr.ENDJMEW_ORAPH,OPJIETURN(SCHEDULE_INPUTSJ.IST.VALUE(S).THE_OTERATO 

R).THE.OPERATOR_ID; 

SCHEDULE_INPUTSJJSTJ«Xr(S); 
if  SCHEDULE_INPUTS_UST  JTON_EMPTY(S)  dien 
~  pointer  is  pointing  to  die  next  record  after  this. 

TiOTJO.SET_OOL(SCHEDULE,  7); 

TEXTJOPUT(SCHEDULE.  “delay  (START  OF.PERIOD  +  “); 
VARSTRINGPUT(SCHEDULE,  TEMPVAR); 

TEXT JOPUT(SCHEDULE.  “.STOP.TTME"); 

INTEGERIOPUT(SCHEDULE,  COUNTER.l); 

TEXTJOPUT_LINE(SCHEDULE,  “  -  CLOCK);"); 

TEXT.IOJ^EW_LINE(SCHEDULE); 
end  if; 

COUNTER :»  CXDUNTER  ♦  1; 
end  loop; 

TEXT  IO.SET_COL(SCHEDULE.7); 

TEXT"I0PUT_LINE(SCHEDUL£. 

~  “START  OF  PERIOD :«  START  OF  PERIOD  +  PERIOD;"); 

TEXT  IO.SET_COL(SCHEDULE,7); 

TEXTllOPUT_LINE(SCHEDULE.  “delay  (START.OF.PERIOD  -  clock);”); 

TEXT  IO.SET_COL(SCHEDULE.7); 

TEXTII0PUT_UNE(SCHEDULE.  “exception”); 
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OP.LIST :«  OPERATOR.LIST; 

NODE_LISTJ4EXT(OP_LIS'I);  -*  Bypass  dummy  start  node 
COUNTER:^  COUNTER  - 1; 
while  NODE_USTHON_EMPTY(OP  UST)  loop 
TEXT_IO.SET_COL(SCHEDULE.  9); 

TEXT  IOJ»UT(SCHEDULE,‘Vhen“); 

VARSTRINGPUT(SCHEDULE. 

NEW_GRAPH.OP  RETURN(NODE_LIST.VALUE(OP  UST)).THE  OPERATOR_ID): 
TEXT_IO.PUT  LINE(SCHEDULE.“  TIMING_ERROR  =>”)r 
TEXT  IO.SET  COL(SCHEDULE,  11); 

TEXT  IOPUT(SCHEDUIi,‘TUT_LINEC“‘timing  error  ftom  operator ‘O; 
VARSTRING.PUT(SCHEDULE, 

NEW_GRAPH.OP  RETURN(NODE  LIST.VALUE(OP_UST)).THE  OPERATOR  ID); 
TEXT_IOPUT_LINE(SCHEDULE.  •““*);”); 

TEXT  IOPUT_LINE(SCHEDULE.  “START_OF_PERIOD  :=  clock;”); 
NODE_LISTPlEXT(OP_UST); 

COUNTER:-  COUNTER  - 1; 
end  loop; 

TEXT  IO.SET  COL(SCHEDULE.  7); 

TEXT  10 JUT  LINE(SCHEDULE.“end;"); 

TEXT  I0.SET_C0L(SCHEDULE,5); 

TEXT  10 JUT  LINE(SCHEDULE.  “end  loop;”); 

TEXT  IO^ET_COL(SCHEDUL£.  3); 

TEXT  IOJUTJJNE(SCHEDULE.“endSCHEDULE_TYPE;”); 
TEXT_IONEW_LINE(SCHEDULE); 

TEXT  lOJUT  LINE(SCHEDULE.  “begin”); 

TEXT  IO.SET  COL(SCHEDULE.  3); 

TEXTJO  JUT_LINE(SCHEDULE.  “null;”); 

TEXTJO  JUTJJNE(SCHEDULE.  “end  STATTC.SCHEDULE;”); 

end  CREATE.STATTC.SCHEDULE; 

end  SCHEDULER: 
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with  DATA;  use  DATA: 
package  ANNEAL  is 

procedure  SIMULATED.ANNEAL  (PRECEDENCE_UST :  in  NODE  LISTUST; 

AGENDA:  in  out  SCHEDULE  INPUTS_LISTiIST; 
H  B  LENGTH :  in  INTEGER; 

VALID.SCHEDULE :  in  out  BOOLEAN); 

end  ANNEAL; 
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withTEXTJO; 
with  DIAGNOSTICS; 
widi  RANDOM; 

with  MATH;  -•*  Necessary  for  EXP  function. 

with  DATA;  use  DATA; 

with  FRONT_END;  use  FRONT_END; 

package  body  ANNEAL  is 

package  inL.io  is  new  TEXT_IO.integerJo(integer);~put  in  for  debugging 
use  intjo; 

package  flott_io  is  new  TEXT_IOilaat_io(float);~put  in  for  debugging 
use  float_io; 


The  following  code  is  a  modification  of  the  HARMONIC  BLOCK  WITH  PRECEDENCE 
-*  CONSTRAINTS  scheduling  algorithm  developed  and  implemented  by  Kilic.  It  is 
-*  intended  to  develop  an  initial  solution. 

procedure  CREATE_INTERVAL  (THE.OPERATOR :  in  OPERATOR; 

INPUT  :  in  out  SCHEDULE  INPUTS; 

OLD_LOWER  :  in  VALUE)  is 

LOWER_BOUND :  VALUE; 

fimction  CALC_LOWER_BOUND  return  VALUE  is 
begin  _ 

-  since  CREATE_INTERVAL  function  is  used  in  both  SCHEDULE.INTTIAL  SET  and 
~  SCHEDULE_REST_0F_BL0CK  (OLD.LOWER  h  0)  check  is  neededln  case  of  the 

operator  is  scheduled  somewhere  in  its  interval  and  (OLDJLOWER  h  0). 

-  tte  check  guarantees  that  the  periods  will  be  consistent 

if  (OLD.LOWER  fm  Q)  then  -*  Schedule  subsequent  instance  of  task 
LOWER.BOUND OLD.LOWER; 
else  -*  Schedule  first  instance  of  task 
LOWER_BOUND  :■  INPUT.THE.START; 
end  if, 

return  LOWER.BOUND; 
end  CALC  JjOWER.BOUND; 

function  CALC.UFPER.BOUND  return  VALUE  is 
begin 

firTHE_C»ERAT(».THE_WnHIN  »  0  then 

return  LOWER_BOUND  +  THE_OPERATOR.THE_PERIOD  •  THE_OPERATOR.THE_MET; 
~  if  the  opoator  has  a  WITHIN  constraint,  the  vppet  bound  of  the 
~  interval  is  reduced, 
else 

return  LOWER_BOUND  +  THE_0PERATC».THE_WITH1N  -  THE  OPERATOR.THE  MET; 
endif 

end  CALC_UPPER_B0UND; 
brain  -main  CREATE.INTERVAL 
WPUT.THE  LOWER CALC  LOWER  BOUND; 

INPUT.THE.UPPER  :»CALC  UPTCR  BOUND; 
end  CREATE  INTERVAL; 


procedure  SCHEDULE.INITIAL.SET  (PRECEDENCE.UST :  in  NODE.LISTUST; 

THE.SCHEDULE.INPUTS :  in  out  S<3IEDUIJE_INPUTS  LISTilST; 
HARMONIC.BLOCK  LENGTH :  in  INTEGER; 

STOP.TTME :  in  out  INTEGER)  is 
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V 

STARTJTIME 
NEW  INPUT 
OLDJLjOWER 
OP_NUM 
TEMP 


NODE.USTJJST PRECEDENCE.LIST; 
INTEGER :»  0; 

SCHEDULE_INPUTS; 

VALUE  :=0; 

INTEGER; 

OPERATOR; 


begin -SCHEDULE_INmAL  SET 
SCHEDULE  INPUTS.LISfEMPTYCTHE  SCHEDULE  INPUTS); 

NEW  INPUT.THE  OPERATOR :»  0;  This  Code  schedules 

NEW  INPUT.THE'LOWER  :=  HARMONIC.BLOCK.LENGTE  +10;-*  the  first  and  only 
SCHEDULE_INPUtS_LIST.  ADD  O^W.INPUT.  THE_SCHEDULE_INPUTS);~*  instance  of  the 
NODE  LISTHEXT(^;-*  dummy  start  node, 
while  NODE  UST J^ON JEMPTY(V)  loop 
OP_NUM  NODE_UST.  VALUE(V); 

TEMP :«  NEW  GRAPROP_RETURN(OP_NUM); 

NEW_INPUT.THE_OPERATOR :«  OP_NUM; 

NEW  INPUT.THE  START START.TTME; 

STOP_TIME  :■  START  TIME  +  TEMP.THE  MET; 

NEW_INPUT.THE_STOP :»  STOP.TTME; 

START_TTME  ;■  STOP_TTME; 

~  to  every  operator  in  SCHEDULE_INmAL_SET.  OLD_LOWER  is  zero.  So  we 
~  always  send  zero  value  to  CREATE.INTERVAL. 

CREATE  INTERVAL(TEMP.NEW_INPUT.OLD_LOWER); 

SCHEDULE  INPUTS  LIST j\DD  (NEW  INPUT,  THE_SCHEDULE  INPUTS); 
NODE_LISf>lEXT(V); 
end  loop; 

end  SCHBDULE_INmAL_SET; 


procedure  SCHEDULE_REST_OF_BLOCK(PRECEDENCE JJSTan  NODEJJSTJJST; 

THE_SCHEDULE_INPUTS :  in  out  SCHEDULE_INPUTS_LISTJLIST; 
HARMONIC_BLOCK_LENGTH :  in  INTEGER; 

STOP.TIME :  in  INTEGER)  is 


V 

TEMP 

V_UST, 

HEAD 

P 

S 

T 

START  TIME 
TIME  STX^ 

NEW  INPUT 
OLD.LOWER 
OUTSIDE  BLOCK 
OP  NUM 
TEMP  OP 


:  NODE.USTUST :»  PRECEDENCE.UST; 

:  SCHEDULE_INPUTS_LISTiIST  :=  THE_SCHEDULE_INPUTS; 

:  NODE  USTUST; 

:  SCHEDULE JNPUTS_LISTUST; 

:  SCHEDULE_INPUTS_LISTUST; 

:  SCHEDULE_INPUTS_LISTIJST; 

:  INTEGER  .*■  0; 

:  INTEGER  :■  STXX*  TIME; 

:  SCHEDULE  INPUTS  ; 

:  VALUE; 

:  BOOLEAN :«  false; 

:  INTEGER; 

:  OPERATOR; 


begin 

NODE_USTJ)UPUCATE(raECEDENCE_UST.  V_UST); 

SCHEDULE_INPUTSJ-ISTXIST_REVERSE(TEE  SCHEDULE  INPUTS.  P); 
T:»P; 

loop 

whUe  SCHEDULE_INPUTS_LIST.NON_EMPTY(P)  loop 
Changed  <  to  <■  on  1  Apr91  toconectflawmschecUer 
OP_NUM NODE_LIST.VALUE(V); 
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TEMP  OP:*NEW_GRAPH.OP_RETURN(OP_NUM); 
if(SCiffiDULE  INPUTS  LIST.VALUE(P).THE_LOWER 
+  TEMP  OP.THE.PERIOD 

+  TEMP  OP.THE_MET)  <=  HARMONIC_BLOCK_LENGTH  then 
l<ffiW_IN^,THE_OPERATOR  :=  OP.NUM; 

The  lowing  if  statement  detennines  the  q)propriate  start  time 
of  an  operator. 

ifSCHmJULE  INPUTS JJST.VALUE(P).THE_LOWER 
+  TEMP_0P7THE_PERI0D  >»  TIME_STOP  then 

START.TIME  :=  SCHEDULEJNPUTS_UST.VALUB(P).THE_LOWER  +  TEMP.OP.THE.PERIOD; 
else 

STARTJTIME :»  TIME_STOP; 
end  if; 

NEW  INPUT.THE.START  :=  START.TIME; 

NEW  INPUT.THE  STOP  :*  START_TIME  +  TEMP_OP.THE_MET: 

TIME1ST0P:=N^  INPUT.THE.STOP; 

OLD JX)WER  :=  SCHEDULE  INPUTS_LIST.VALUE(P).THE_LOWER  +TEMP_OP.THEJ»ERIOD; 
C31EATE  INTERVALCTEMP  OP.  NEW  INPUT.  OLD.LOWER); 

NEWJNPUT.THE  INSTANCE  i-  SCHEDULEJNPUTS_LIST.VALUE(P).THEJNSTANCE  + 1; 
SCHEDULE  INPUTS  LISTj\DD(NEW_INKn'.  TEMP); 

SCHEDULEIiNPUTS  LISTj\DD(NEW_INPUT.S); 

NODE  USTJNEXT(V); 

SCHEDULE.INPUTSJLISTJ'JEXTO*); 

else 

NODEJJSTIOEXTOO; 

NODE JJSTJlEMOVE(OP_NUM.  V_UST); 

SCHEDULE JNPUTSJJSTHEXT(P); 
end  if; 
end  loop; 

if  SCHEDULE  INPUTS  LISTJION  EMPTY(S)then 

scheduleIinputs.ustjree  LISTCD; 

SCHEDUIJE_INPUTS_LIST1,IST  REVERSE(S,  P); 
SCHEDULE_INPUTS_LISTJ=REE_LIST(S); 

T:»P; 

V:»V_UST; 
else 
exit; 
end  if; 
end  loop; 

SCHEDULE_INPUTS_LISTJJST  REVERSE(TEMP.  THE.SCHEDULE  INPUTS); 
SCHEDULE  INPUTS  LISTJREE  USTCTEMP); 
end  SCHEDULE  REST.OF.BLOCK; 


All  code  beyond  this  point  is  utilized  by  the  SIMULATED  ANNEALING  algorithm  *- 


procedure  TEST.SCHEDULE  (  AGENDA  :  in  SCHEDULE_INPUTS_USTiIST; 

COST  :  in  out  INTEGER; 

BLOCK.LENGTH  :  in  INTEGER; 

OUTSIDE.BLOCK  :  in  out  BOOLEAN)  is 
.■*  This  {Hocedure  fuids  the  cost  of  a  schedule  by  traversing  through  it 


V  :  SCHEDULE_INPUTS_LISTiIST  :*  AGENDA; 

PREVIOUS  :  SCHEDULE_INPUTS_LISTJLIST  :=  nuU; 
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ODCT:»0; 

SCHEDULE JNPUTS  LISTJ4EXT(V); -Bypass  Dummy  Sttut  Node 
while  SCHEDULE_INPUTS_LISTJ^ON_EMPTY(V)  loop 
if  SCHEDULE_INPUTS_UST.VALUE(V).THE_START 
<  SCHEDULE_INPUTS  LIST.VALUE(V).THE„LOWER  then 
COST COST  +  (SCHEDULE_INPUTS_LIST.VALUE(V).THE_LOWER 

-  SCHEDULE  INPUTS  LIST.VALUE(V).THE_START); 
elsif  SCHEDULE  INPUTS  LIST.VALUE(V).THE_START 

>  SCHEDULE  INPUTS  LIST.VALUE(V).THE_UPPER  then 
COST  :=  COST  +  (SCHEDULE_INPUTS_UST.VALUE(V).THE_START 

-  SCHEDULE_INPUTS_UST.VALUE(V).THE_UPPER); 
end  if; 

PREVIOUS :«  V; 

SCHEDULE_INPUTS_LISTJffiXT(V); 
end  loop; 

if  SCHEDULE_INPUTS_UST.V  ALUE(PREVIOUS).THE_STOP  >  BLOCK_LENGTH  then 
OUTSIDE_BLOCK true;-*  Schedule  exceeds  harmonic  block  length  Not  acceptable 
end  if; 

endTEST_SCHEDULE; 


procedure  ADJUST  SCHEDULE(TEMP  AGENDA  :  in  out  SCHEDULJE_INPUTS_LISTXIST; 

PRECEDENCE  UST :  in  out  NODE  J-ISTUST; 

H  B  LENGTH  :  in  INIEGER; 

OUTSIDE.HARMONIC  BLOCK :  in  out  BOOLEAN; 
NEW_UST  :  in  out  BOOLEAN)  is 

This  procedure  devdopes  a  new  schedule  based  on  airather  schedule 
HOLD, 

:  SCHEDULE.INPUTS  USTUST;  -*  op  that  misses  deadline 
:  SCHEDULE_INPUTS_LISTiIST TEMP.AGENDA; 

—*  Original  Schedule 


ADJUST  POINT 
V 


PENALTY.COST, 

MET. 

START.TIME. 

STOP_TIME 

NEWJNPUT 

MOVED 

ADJUSIED 

REDO 


:  INIEGER  0; 

:  SCHEDULE JNPUTS; 
:  BOOLEAN  :«fd8e; 

:  BOOLEAN:- false; 

:  BOOLEAN  .-false; 


procedure  ADJUST_PRECEDENCE  (PRECEMNCE_USD  in  out  NODE_LISTJJST)  is 
Develop  a  new  precedence  list 


op_to_be_rescheduled. 

TEMPJ»ARENTS, 

PARENTS. 

TEMP 
NEW  LIST, 

ADJUSTABLE. 

ADJUSTED, 

FOUND  PARENT. 

can_go_no_further 

RESCHEDULED  OP 
MOVE  COUNT” 


:  NODE_USTiJST; 


BOOLEAN false; 
INTEGER; 
INTEGER  :=0; 


b^ 

while  not  NEW  LISTkxm 
TEMP :»  PRECEDENCT.UST; 

while  NODE_LIST.NON_EMPTy (TEMP)  kxq)  —Move  to  tail  of  list 
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OP  TO  BE_RESCHEDULED:-TEMP; 

NODE_USTJ®XTCIEMP); 

endkxm; 

MOVE  COUNT  3=  INTEGER(RANDOMJ4EXT  NUMBER  *  FLOAT(DATA.OP_COUNT)); 
whUe  MOVE  COUNT  >  1  loc^ 

NODE  USTJ»REVIOUS(OP_TO_BE_RESCHEDUlJED); 

MOVE.COUNT :«  MOVE.COUNT  -  1; 
end  loop; 

TEMP:«OP_TO  BE  RESCHEDULED; 

NODE_USTPREVldUSaEMP); 
while  not  ADJUSTED  loop 
if  not  NODE.UST  J4ON_EMPTY(TEMI0  then 
es^  Ctninot  reschedule  first  (9  in  li^ 
end  if; 

while  NODE  LIST JiON_EMPTY(TEMP)  loop 

if  not  NEW  GRAPRIS  PARENT(N0DE_L1ST.VALUE(TEMP), 

NOI£  lIST.VALU^OP  TO  BE  RESCHEDULED))  then 
ADJUfTABLE :» true; 

NODE_USTPREVIOUSCIEMP); 
else 
exit; 
end  if; 
end  loop; 

if  ADJUSTABLE  then 

RESCHEDULED  OP  :>  NODE  LIST.VALUE(OP  TO  BE_RESCHEDULED); 

NODE  LISTJtEMOVE(RESCI^ULED_OP.PRECEDENCE_LISD; 

NOM JJST.INSERT_NEXT(RESCHEDULED_(M»,  TEMP); 

ADJUSTED  :>  true; 

NEW_UST:minie; 

else 

NOIKJLISTJ>REVIOUS(OP  TO  BE  RESCHEDULED); 

TEMP  >  OP  TO^E_RESCHEDULED; 

N0DE_LISTJ>REVI0US(TEMP); 
end  if; 
end  loop; 
end  loop; 

end  ADJUST JPRECEI^CE; 


begin  — *  MAIN  Adjust  Schedule  procedure 

-*  This  first  loop  traverse  thru  s  copy  of  the  agenda  to  find  the  first  instance  of  an 
-*  operator  that  misses  its  deadline  the  schedule  will  be  adjusted  from  this  point 
while  SCHEDULE  INPUTS  USTJ^ON.EMPTYfV)  loop 
if  SCHEDULE  D1PUTSJJST.VALUE(V).THE  START 

>  SCHEDULE  INPUTS  LIST.VALl)E^.THE  UPPER  then 
ADJUST_POINT;«V; 
exit; 
end  if; 

SCHEDULE_INPUTS_USTJ®XT(V); 
end  loop; 

while  not  ADJUSTED  loop 

if  not  SCHEDULE_INPUTS_LISTJ^ON_EMPTY(V)  or  REDO  then 
"*  At  this  point  an  opeiatms  meet  their  deadlines  but  the  schedule  exceeds  the 
hannomc  block  l«gth.  The  initial  set  of  ops  must  be  adjusted 
ADJUST  PRECEDENCE(PRECEDENCE_LIST); 

SCHEDULE  INPUTS_LISTPREE  LIST(TEMP  AGENDA); 
SCHEDULE_INrnAL_SET(PRECEDENCE_LIST,TEMP  AGENDAS  B  LENGTH, 
STOP.TIME); 
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SCHEDULEJIEST_0F_BLC)CK(PRECEDENCE_LIST.TCMP  AGENDAJI_B_LENGTH. 
STOP.TIME): 

NEW.UST  :=  true; 

ADJUSTED true; 
else 

The  following  if  statement  finds  the  point  in  the  mij^al  AGENDA  where  we  can  begin 
to  reschedule  operators.  It  does  so  in  reverse  (»der  aom  the  point  that  the  first 
operator  missed  its  deadline  back  to  the  start  point  of  the  schedule.  Each 
operator’s  start  time  and  child  idationships  are  checked  to  see  if  the  operator 
that  miseed  its  deadline  (ADJUST  POINT)  can  start  prior  to  this  operator. 

SCHEDULE  INPUTS  LISTPREVIOUS(V); 

HOLD  :=  V; 

while  SCHEDULE  INPUTS_LISTJ^ON  EMPTY(V)loop 
if  SCHEDULE  ^UTS  LIST.VALUE(V).THE_START 

>  schedl’le_inputs_list.value(adjust_point).the  lower 

and  notNEW_GRAPHJS_PARENT(SCHEDULE_INPUTS_UST.VALUE(V).THE  OPERATOR, 
SCHEDULE  INPUTS_UST.VALUE(ADJUST  POINT).THE_OPERATOR)  then 
SCHEDULE_INPUTS_LISTPREVIOUS(V); 

MOVED  :■  true; 
else 

STOP.TIME SCHEDULE_INPUTS_UST.VALUE(V).THE_STOP. 
exit; 
end  if; 
end  loop; 
ifMOV^then 

NEW  INPUT.THE  OPERATOR 

SCHEDULE_INPUTS_LIST.VALUE(ADJUSTJ0INT).THE  OPERATOR; 

if  SCHEDULE_INPUTS_UST.VALUE(ADJUST_POINT).THE_LOWER  >  STOP.TIME 

then 

CTARTJTIME :»  SCHEDULEJNPUTS JJST.VALUE(ADJUST_POINT).THE_LOWER; 
else 

START.TIME :»  STOP.TIME; 
end  if; 

NEW.INPUT.THE.START:- START  TIME; 

MET:«  SCHEDULE.INPUTS_UST.VALUE(ADJUST_POIND.THE  STOP 
-  SCHEDULE.INPUTS.UST.VALUE(ADJUST  POINT).THE  START; 

STOP.TIME  :■  START.TTME  +  MET; 

NEW.INPUT.THE  STOP:- STOP  TIME; 

NEW.INPUT.THE.LOWER  :« 

SCHEDULE.INPUTS.LIST.VALUE(ADJUST.P0INDTHE_L0WER; 

-*  These  should  stay  the  same 
NEW.INPUT.THE  INSTANCE  :» 

SCHEDULE.INPUTS.LIST.V^UE(ADJUST  P0INT).THE  INSTANCE; 

NEW.INPUT.THE  UPPER  ~ 

SCHEDULE  INPUTS  LIST.VALUE(ADJUST  POIND  THE.UPPER; 

SCHEDULE.INPUTS.LIST.INSERT.NEXT(NEW.INPUT,  V); 

SCHEDULE_INPUTS.LISTPEMOVE(SCHEDULE  INPUTS  LIST.VALUE(ADJUST  POIND. 
TEMP.AGENDA); 

SCHEDULE  INPUTS  LISTJffiXT(V); 

ADJUSTED tnie; 

while  SCHEDULE.INPUTS  LISTJ^ON  EMPTY(V)loop 
if  SCHEDULE_INPUTS_LIST.VALUE(V).THE  LOWER  <=  STOP  TIME  or 
SCHEDULE.1NPUTS.LIST.VALUE(V).THEIsTART<STOP  ■nMEthen 
if  SCHEDULE_INPUTS_LIST.VALUE(V).THE.START  >  STOP  TIME  then 
exit; 
end  if; 

NEW.INPirr.THE.OPERATOR  :=  SCHEDULE JNPUTS  UST  VALUEO^LTHE  OPERATOR; 
START  TIME  :=  STOP  TIME; 

NEW.INPUT.THE.ST^T  :»  START  TIME; 

MET:-  SCHEDULE  INPUTS  UST.V^UE(V).THE_STOP 


101 


-  SCHEDULE_INPUTS_UST.VALUE(V).THE_START; 

STOP  TIME  :=  START  TIME  +  MET; 

NEW1nPUT.THE_STOP  :»  STOP_TIME; 

NEWllNPUT.THE_LOWER  .•= 

SCHEDULE JNPUTSJJST.VALUE(V).THE_LjOWER; 

NEW  INPUT.THE.UPPER :» 

SCHEDULE.INPUTS  LIST.VALUE(V).THE_UPPER; 

SCHEDULE_INPUTS_LISTREPLACE_ITEM(NEW_INPUT,  V); 
end  if, 

SCHEDULE_INPUTS_LISTJ<EXT(V); 
end  loop; 
end  if; 
end  if; 

if  not  ADJUSIED  then 
REDO  :=  true; 
end  if; 
end  loop; 

end  ADJUST_SCHEDULE; 

procedure  ANNEAL  PROCESS  (H  B.LENGTH  ;  in  INTEGER; 

AGENDA  :  in  out  SCHEDULE_INPUTS  USTUST; 

SOLUTION  FOUND  :  in  out  BOOLEAN; 

PENALTY  COST  :  in  out  INTEGER; 

PRECEDENCE  LIST  :  in  out  NODEJJSTilST; 

OUTSIDE  MASONIC  BLOCK :  in  out  BOOLEAN)  is 


SCRATCH  AGENDA. 

BEST.AGENDA, 

TEMP_AGENDA  :  SCHEDULE_INPUTS  LISTUST; 


TEMPERATURE 

BEST.COST, 

TEMP.COST 

TRIAL.NUM 

ACCEPT_NUM 

STOP.TTME, 

TRIAL.COUNT, 

ACCEPT.COUNT 

COOLING JJACTOR 

FREEZE 

NEW  PREC.UST 


:  FLOAT; 

:  INTEGER  :«0; 

:  INTEGER :« 100; 
:  INTEGER  25; 


:  INTEGER  :»0; 
-.FLOAT:- 0.95; 
.FLOAT:- 1.0; 

:  BOOLEAN ;-  false; 


function  ANNEAL.FUNCTION  (COST.l  :  in  INTEGER; 

COST_2  :  in  INTEGER; 

CURRENT_TEMPERATURE ;  in  FLOAT)  return  FLOAT  is 


DELTA_C  :  FLOAT; 


begin 

DELTA  C :» (FLOAT(COST_l  -  COST_2)/CURRENT  TEMPERATURE); 
ifDELTA_C<«  15.0  then 
return  MATHEXPf-DELTA.Q; 
else 

return  0.0; 
end  if; 

end  ANNEAL.FUNCnON; 


^HEDl 


►Ul£_INPUTS_USTDUPLICATE(AGENDA,  BEST.AGENDA); 
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BEST_CX)ST  :=  PENALTY_CX)ST; 

TEMPERATURE  :=  2.0  •  FLOAT(PENALTY  COST); 
CHEDULE_INPUTS_UST.DUPUCATE(AGENDA.  TEMP.AGENDA); 
while  not  SOLUTION_FOUND  and  TEMPERATURE  >  FREEZE  loop 
while  TRIAL_COUNT  <  TRIAL.NUM  and  ACCEPT_COUNT  <  ACCEPT_NUM  loop 
ADIUST_SCHEDULECreMPjtGENDAJ>RECEDENCE_LIST4t  BJ.ENGTH.OUTSIDE  HARMONIC  BLOCK. 
NEW_PREC  IIST^ 

0UTSIDE_HARM0NIC_BL0CK  :=  false; 

TEST  SCHEDULECTEMP  AGENDA.TEMP_COST4I_B  LENGTH, OUTSIDE  HARMONIC  BLOCK); 
if  TEMP.COST  <»  PEN ALTY.COST  or  else  RANDOM J^Xf  NUMBER" 

<  ANNEAL_FUNCTION(TEMP_COST.  PENALTY_COST.  TEMPERATURE)  then 
if  TEMP  COST  <BEST_COST  then 
BEST  "COST :»  TEMP_COST; 

SCHEDULE_INPUTS_LIST.COPY_LIST(TEMP_AGENDA,BEST_AGENDA); 

Old  if; 

PENALTY  COST  :=  TEMP  COST; 

SCRATCH  AGENDA AGENDA; 

AGENDA TEMP_AGENDA; 

TEMP.AGENDA  :*  SCRATCH.AGENDA; 

ACCEPT  COUNT  :=  ACCEPT  COUNT  +  1; 
elsif  NEW_PREC_UST  then 
SCRATCH  AGENDA AGENDA; 

AGENDA  :=  TEMP_AGENDA; 

TEMP  AGENDA SCRATCH  AGENDA; 

PENALTY  COST:«TEMP_COST; 

NEW_PREC  UST :» false; 
if  TEMP  COST  <  BEST  COST  then 
BEST_OOST  :*  TEMP  COST; 

SCHEDULE_INPUTS_LIST.COPY_LIST(TEMP_AGENDA.BEST_AGENDA); 
end  if; 
end  if; 

SCRATCH.AGENDA :«  null; 

TRIAL_COUNT :»  TRIAL.COUNT  +  1; 

if  PENALTY.COST  <«  0  and  not  OUTSIDE.HARMONIC.BLOCK  then 
SOLUnON.FOUND :» tnie; 
exit; 
else 

SCHEDULE_INPUTS_LIST.COPY JJST(AGENDA,  TEMP.AGENDA); 
end  if; 
endloqj; 

ACCEPT_COUNT:»0; 

TRIAL_COUNT:-0; 

TEMPERATURE ;«  TEMPERATURE  •  COOLING  FACTOR; 
end  loop; 

if  not  SOLUnON.FOUND  then 
AGENDA :»  BEST.AGENDA; 

PENALTY.COST :«  BEST.COST; 
end  if; 


end  ANNEAL.FROCESS; 


inocedure  SIMULATED.ANNEAL  (PRECEDENCE  LIST :  in  NODE  LBTilST; 

AGENDA  :  in  out  SCHEDULE  INPUTS  LISTilST; 

H_B_LENGTH  :  in  INTEGER; 

VAUD.SCHEDULE :  in  out  BOOLEAN)  is 

PENALTY_COST. 

TEMP  COST, 

STOPJTTME  :  INTEGER :»  0;  -•  (MAR  91) 
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ANNEAL 

WORKING_PRECEDENCE_UST 
OUTSIDE  HARMONIC.BLOCK 
A.AGENDA 
BLANK 


BOOLEAN false; 
NODE.USTUST; 

BOOLEAN  false; 
SCHEDULE.INPUTS  LISTJLIST; 
SCHEDULE.INPUTS; 


begin 

N0DE_LISTDUPUCATE(PREC:EDENCE_LIST.W0RKING_PRECEDENCE  LIST); 
SCHEDULE_lNmAL_SET(PRECEDENCE_LIST  AGENDA  J1  B_LENGTH,  STOP_TIME); 
SCHEDULE_REST_0F_BL0CK(PRECEDENCE_LISTAGENDA,H_B_LENGTH,  STOP.TIME); 
ANNEAL  :s  false; 

TEST_SCHEDULE(AGENDAJ'ENALTY_CX)ST.H_B  LENGTH,0UTSIDE_HARM0NIC  BLOCK); 
if  PENALTY  COST  >  0  or  OUTSIDE.HARMONIC  BLOCK  then -•  Then  Aneealingls  required. 
OUTSIDE_HARMONIC_BLOCK  :=  false; 

ANNEAL  :=  true;  _ 

RANDOM JNmALI2E(2*DATA.OP_COUNT+l);  Initialize  Random  Numbo'  Generator 

— with  an  odd  number, 
else 

VALID_SCHEDULE :» true; 
end  if; 

if  ANNEAL  then 

ANNEAL_PROCESS(H  B.LENGTHAGENDA,  VALID  SCHEDULE4>ENALTY_COST. 
WORKING_PRECEDENCE_LIST.OUTSIDE_HARMONIC_BLOCK); 
end  if; 

end  SIMULATED.ANNEAL; 


end  ANNEAL; 


I 
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